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Preface 


Just as the Jumbo jet by getting larger (and cheaper) opened up a new vista 
of exotic destinations to the ordinary holidaymaker, so the microcomputer 
by getting smaller (and cheaper) has opened up a whole new realm of 
computer applications. 

This is a guidebook to that remarkable territory. It will teach you enough of 
the local language to turn you from a package tourist into an independent 
explorer. The language is Basic. It isn't the only programming language or 
even the best, but it's certainly the most popular; and it is very easy to learn. 

Our book is aimed chiefly at users of the Amstrad CPC 6128 computer, 
which has set a new standard of price/performance for small systems. All the 
programs listed have been run on a CPC6128. However, practically 
everything in the book is also relevant to CPC 664 owners; and apart from 
Chapter 7 and Appendices C and D this applies to CPC 464 owners too. This 
is because the Amstrad range of personal computers (CPC 464, CPC 664 and 
CPC 6128) all use the same version of Basic, called Locomotive Basic. Even 
users of the Amstrad PCW 8256 business machine, which provides a version 
of Basic written by the same software team (known as ‘Mallard Basic’), will 
find much that is applicable to their needs in this book. 

In order to widen the generality of the book we have concentrated first 
and foremost on Basic programming techniques and only secondly on how to 
make the Amstrad ‘sit up and beg’ - though of course there are quite a few 
hints on that sort of thing in later chapters. You will also find a wealth of 
illustrative programs, many of them more advanced than typical textbook 
examples, which we believe are important in assisting your progress. 
(These are catalogued in the index of example programs). 

We hope that this book will enable you to use Amstrad Basic to solve 
realistic problems, and to have some fun doing so. A further objective is to 
show you how to use modern methods of program design - in other words to 
profit from some of the lessons learned by computer scientists in the twenty 
years since Basic was first devised. 

If readers have any comments or suggestions for improvement, we will be 
pleased to consider them for future editions. 


December 1985 
RICHARD FORSYTH 
BRIAN MORRIS 


l 
Getting started 


GENERAL INTRODUCTION 


Basic is not only one of the simplest computer languages, it is also one of the 
most vital. It has developed, during its short lifetime, like a living organism. 

Since 1964, when Professors Kemeny and Kurtz planted its roots at 
Dartmouth College, New Hampshire, it has spread like a hardy weed, 
thrusting out shoots in all directions. Meanwhile other programming 
languages, far more elegant in concept, have thrived only in the hot-house 
atmosphere of the research laboratories where they were born. 

The feature which gives Basic its vitality is its responsiveness to change. It 
has adapted to a changing world. Many new facilities have been grafted on, 
until today it is hardly recognizable as the ‘Beginner's All-purpose Symbolic 
Instruction Code’ of 20 years ago. This flexibility is its greatest strength, but at 
the same time a major weakness. 

In the fast-changing world of computing, to stand still is to die; but the price 
paid for Basic's flexibility is a lack of standardization. There are many 
different and incompatible varieties of Basic in existence. A standard form 
was defined by the American National Standards Institute, but it has been 
almost entirely ignored by the computer industry. 

Fortunately, all dialects of Basic share a distinctive family resemblance. 
This means that the reader will find it comparatively easy, having mastered 
one version of the language, to learn another. 

In this book we concentrate on the Basic used by the Amstrad range of 
microcomputers. This is known as ‘Locomotive Basic’ after the software 
house that implemented it. The Amstrad CPC 464 and CPC 6128 computers 
have recently taken the market by storm, offering a new level of 
price/performance in personal computing. These remarkable machines 
use Locomotive Basic. It is a ‘plain vanilla’ version of the language — 
well-proven but lacking such modem facilities as procedures with local 
variables. Its advantage for the beginner is that it does not contain any 
idiosyncratic constructions that have to be unlearned later. Its disadvantage 
is that it makes some of the principles of structured programming harder to 
apply than they should be. 





GETTING STARTED | 








It cannot be ignored, however, and if you have purchased an Amstrad 
computer you will not get the full benefit of the machine without mastering 
Locomotive Basic. So let's get started on that task. 


1.1 Your computer 


You should be sitting comfortably in front of your personal computer. In 
logical terms it is arranged as depicted in Fig. 1.1. We will assume that you 
have worked out how to set it up, connect all the leads into the right sockets 
and switch on. (This is covered in the User Instructions, Chapter 1.) If you 
cannot afford one yet, you may not have the printer. If you have a CPC 464, 
you will have a cassette player built-in instead of the disc-drive unit. But the 
general layout will be similar. 


Fig. 1.1 Amstrad home computer components ‘i 
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Keyboard 


The screen is the primary output device. It is a colour or a monochrome 
monitor, depending on the price you paid. It is the computer's chief means of 
communication with you, the user. 

The Amstrad keyboard unit contains the computer itself. Some machines 
have a separate ‘system box’ which means that the two are detachable; and, 
logically speaking, it is a good idea to be aware that the two items are 
distinct. The keyboard itself contains the letter keys, the numerals 0 to 9, 
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many punctuation marks, and several other keys whose use we will describe 
later. It is your main line of communication to the computer. 

The computer consists of the CPU (Central Processiing Unit) which is a 
single chip that actually manipulates the data and instructions when 
programs are executed, the ROM (Read-Only Memory) where permanently 
resident programs such as the Basic interpreter are held, and some RAM 
(Random Access Memory) where programs and data are held during 
execution. Information in RAM may be modified; information in ROM is 
unalterable. The Amstrad machines use the Zilog Z-80 processor as their 
CPUs. 

The disc-drive is for 3-inch so-called ‘floppy’ discs. Disc are used for 
backing storage. Information is recorded on them magnetically and this 
enables them to hold programs and data when the computer is switched off. 
Most of this book (with the exception of Chapter 7) applies also to owners of 
the CPC 464 who do not have a disc-drive but rely instead on an integral 
cassette unit. This is a specially modified audio recorder/player on which 
information can be recorded as tone bursts and later played back. Either 
system provides for the long-term storage of programs and data, but discs 
are quicker and more reliable. 

The printer, which is not supplied when you buy the computer, is for ‘hard 
copy as it is called in the trade - i.e. printed listings of programs and output. 
Although we are said to be entering a video age, the human need for seeing 
things on paper in black and white (and occasionally red, green and blue) 
remains. Some printers can be made to copy graphical displays too, as 
patterns of dots. The more programming you do, the more keenly you will 
feel the need for a printer. Fortunately there is a wide range of inexpensive 
products to choose from. 


1.2 The keyboard 
The keyboard, as we have said, is your chief means of communicating with 


the computer. You will have to familiarize yourself with its layout. A diagram 
is shown in Fig. 1.2. 


| Fig. 1.2 Keyboard layout 
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You will notice that the alphabet is arranged in the familiar QWERTY 
pattern, as ona typewriter. Letters and numbers should present no difficulty, 
nor should the punctuation signs; but there are also some special keys whose 
usage may not be obvious. The most important of these are as follows. 





A Special keys 





CAPS LOCK 


CLR 


COPY 


CONTROL 


DEL 


ESC 


RETURN 


SHIFT 


Shift lock 


Lt<<«- 


Locks the letters into upper case, without affecting other 
keys (unlike SHIFT). A second CAPS LOCK cancels the 
first. 


Used to delete the character under the cursor during 
editing. 


Used in editing: copies the character at which the cursor is 
positioned. 


Is held down while another key is being pressed to 
generate various special control characters. 


Erases the last character typed in. Pressing DEL n times 
deletes the last n characters typed. 


Interrupts a running program. ESC is a kind of emergency 
exit; press it once to suspend an action; press it twice to 
halt completely. 


Causes a carriage-return and line-feed. It must be used to 
terminate every input line. ENTER has the equivalent 
effect. 


Activates the upper punctuation symbols above the numeric 
keys and capital letters as long as it is held down. 


This is actually achieved by hoiding down CONTROL and 
CAPS LOCK simultaneously. Upper case and shifted 
symbols remain selected until unlocked by the next 
depression of CONTROL and CAPS LOCK. 


Tabs across to next tabulation setting. 
Moves the cursor upwards. 

Moves the cursor downwards. 

Moves the cursor one space left. 


Moves the cursor one space right. 





On the Amstrad all keys have ‘auto-repeat’. This means that if you hold them 
down long enough (about half a second) they start repeating till released. 
There are also ten function keys, labelled f0 to f9. These will be explained 
later, as will the use of the editing cursor. 
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Most computer keyboards adopt a similar arrangement, with the 
exception of function keys (which are often missing) and in some cases 
cursor control keys. 

It is essential for the beginner to get used to the keyboard, and the main 
requirement for this is practice. There is no need to be an ace typist, but on 
the other hand if it takes several seconds to hunt for every character then you 
will not find your computer sessions very productive, or enjoyable. 

Notice particularly that the number | is different from the letter I and that 
the number 0 is different from the letter O. The computer is very fussy about 
these distinctions: if you type one when you mean the other, it will cause 
problems. Unfortunately some keyboards and many printers do not mark the 
difference clearly, so take note of where they are placed. You are advised to 
adopt the following handwriting conventions when preparing your own 
programs on paper: it could save quite a lot of trouble when typing them into 
the computer. 











Number Letter | 
4) 0 
l I 
2 Z 
5 NS) 





1.3 The Basic environment 


When you use the computer, you are interacting not with a naked machine, 
but with some very sophisticated software — namely, the Amstrad Operating 
System (AMSDOS) and the Locomotive Basic interpreter, which are present 
in ROM. These are programs which convert from terms the user can 
understand (numbers, commands, character strings, program lines, etc.) to 
data the machine can handle, i.e. binary code. It may surprise you that the 
computer cannot execute Basic instructions directly. A program to interpret 
them is one part of the Basic system. Another part is an editor which allows 
you to amend programs in memory by moving the cursor around the screen 
and retyping the incorrect portions. Together this collection of software 
forms a programming environment. 

The fact that Basic is not just a language, but a complete programming 
environment, is the secret of its phenomenal success; and the user needs to 
be comfortable with the system as a whole, not just the language, in order to 
achieve good results with it. 
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1.3.1. Using the Basic system 
When using Basic, you can be in one of two phases: 





(1) Input - when Basic is accepting lines into memory and obeying 
commands; 


(2) Execution - when Basic is interpreting and obeying the program 
currently in memory. 


During the input phase (1) Basic regards any line starting with a number asa 
line to be added, at the point indicated by its number, to the program 
currently being built up. Any line not beginning with a number is taken as a 
command. If Basic cannot recognize a command it simply complains, so no 
damage is done by accidentally typing a nonsense command; but if you type 
a line number followed by garbage, that line will be faithfully added to the 
contents of memory and will not cause an error until you try executing it. 
(Some Basics translate each statement as it is entered, but Amstrad Basic 
waits till you try to execute a program before checking for errors.) 

During the execution phase (2) Basic tries to carry out the program 
currently in memory. 

To get from phase (1) to phase (2), type the RUN command. To force exit 
from phase (2) and return to phase (1), press the ESCAPE key twice. 
Normally Basic returns to phase (1) after reaching the end of the program or 
after an error, so ESC is only necessary if it gets stuck due to faulty 
programming. 

We use the term ‘statement’ for a line in a program and ‘command’ for an 
unnumbered line, obeyed immediately, which tells Basic what to do next. 
We use ‘instruction’ to cover both commands and statements. Many Basic 
instructions, such as PRINT, may be either. For instance, 


PRINT “Richard” 
is a direct command, which causes 
Richard 
to be put on the screen as soon as RETURN is pressed; while 
100 PRINT “Richard” 
is a program statement, which will cause the same output but not until line 
100 is eventually executed. 

You can enter a Basic program by typing in numbered statements in any 
order that suits you — thus building it up line by line. Alternatively it can be 
recalled from disc (or cassette tape) with the LOAD command if it has been 


saved previously. Once loaded or entered a program can be mun by giving 
the RUN command. 
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A short list of essential commands is given below. 














[ Command Meaning | 
LIST Lists current program on the screen. 
LOAD prog Loads a named program from packing store. 
NEW Clears memory ready for input of a fresh program from 
the keyboard. 
RUN Executes the program currently in memory. 
SAVE prog Saves the current program on disc or cassette under 


the name specified. 


CAT Gives a catalogue of the saved entries on a disc. 





In this list ‘prog’ stands for the quoted name of a program. The name may be 
up to eight characters long. Thus 


LOAD “JOKE” 


tells the system to search for JOKE on disc (or cassette) and bring it into 
memory if found — overwriting anything currently there. Of course, this 
implies that 


SAVE “JOKE” 


was performed on some previous occasion. 
Further Basic commands will be presented later. These are enough for 
the novice to start with. 


1.3.2. A sample session 


Here is the printout from a complete session to give you an idea of what a 
Basic program looks like in action. Do not be dismayed if you cannot yet 
understand how it works: the instructions it uses are explained in the next 
two chapters. For the moment, all you need to notice is that a Basic program 
consists of a series of statements each preceded by a line number. 


Listing 1.1 Probability calculations 


10 REM KRKEKKKEEREEKKKKKKEKKKKKKKKKKKKKKK 

20 REM ** Listing 1.1: bes 

30 REM ** PROBABILITY CALCULATIONS ** 

40 REM REE EEEEEEEEEKKKEKKKKKKKKKKEK 

100 PRINT: PRINT “Probability Calculator :" 
110 PRINT "Please give odds as two numbers;" 
120 PRINT "e.g. 3,1 for 3-to-l etc." 

130 PRINT "Use 0,0 to end input.": PRINT 

140 ZONE 4 

150 n=0 
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160 tp=0 

170 a=l: f=1l 

190 REM -- Main Loop: 

200 WHILE a>0O AND f>0 

210 n=n+1l 

220 PRINT "Runner ";n;" name is "; 

230 INPUT name$ 

240 PRINT "Odds against are "; 

250 INPUT a,f 

260 IF a<=0 OR f£<=0 THEN GOTO 330 : REM quit 
270 prob = f/(a+f) 

280 tp = tp + prob 

290 PRINT "For runner no. ";n;", "s;name$ 

300 PRINT USING "probability is : ##.####"; prob 
310 PRINT 

330 WEND 

350 n=n-1 

360 PRINT 

370 PRINT "Stake returned is ";100/tp;"%" 

380 PRINT "Bookies' mark-up: ";100*(tp-1);"%" 
390 IF tp<l THEN PRINT "You're kidding!";CHRS$(7) 
400 END 

RUN 


Probability Calculator 

Please give odds as two numbers; 
e.g. 3,1 for 3-to-1 etc. 

Use 0,0 to end input. 


name is ? home 
Odds against it are ? 15, 8 
For runner no. 1 , home 
probability is 0.3478 


Runner 1 


is ? draw 
are? Sy 2 
draw 


Runner 2 name 
Odds against it 
For runner no. 2, 


probability is 


Runner 3 name 
Odds against it 
For runner no. 
probability is 


Runner 4 name 
Odds against it 


Stake returned is 


0.2857 


is ? away 

are? 1,1 

3°, away 
0.5000 


is ? 
are ? 0, 0 


88.2191781 % 


Bookies' mark-up: 13.3540373 % 


In this sample session a program called ODDS is loaded into working 
memory, then listed and run. 

This program calculates the winning probability of each runner in a race 
corresponding to the bookmaker's odds. These probabilities are totalled to 
work out the margin of the bookies over the punters (or the other way round 
in the unlikely event that they have slipped up). This is calculated simply by 
adding up all the probabilities. In a fair race they will total 1 (100%). When 
they add up to more than one, as is normal, the bookmaker has an advantage. 
(Well, he isn't running a charity.) 
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In the example shown, the bookmaker is liable to return just over 88% of 
the money wagered. This is about average for betting on the turf; but a 
considerably better return than in the ‘football pools’. 

The program is actually designed for horse races, but the sample output 
shown here results from testing it on a soccer match. The odds were taken 
from a fixed-odds football coupon for 17 August 1985 on a game between 
Leicester City and Everton, and were as follows: 


Home win 15-8 
Draw 5-2 
Away win 1-1 (evens) 


As it happens, the home side won that game, proving yet again that 
favourites cannot always be relied on. 

Note that we convert from odds against an event (A/F) to the probability of 
that event occurring (P) with the formula 


P = F(F +A) 


which is used on line 270 of the program. However, do not worry if much of it 
seems incomprehensible, or indeed if gambling bores you. All we want to 
do at this stage is to show you what a fairly short (but potentially useful) 
program looks like. 


1.4 The next step 


The fastest way to learn to use Basic is by practice. Because of its interactive 
nature, a Basic system acts somewhat like a teaching machine. But before 
rushing wildly to the keyboard, read this section. It discusses some common 
pitfalls encountered by beginners. 


1.4.1 Practical details 


Certain skills which appear to have nothing to do with programming must be 
mastered in order to utilize the computer. Before going any further you 
should be reasonably confident that you know how to do the following things. 
(Note that from now on, for brevity, we will stop referring to cassette and 
assume you have a disc unit. CPC 464 owners please excuse us: almost 
everything we say still applies to users of cassette-based systems.) 


(1) Turn the machine on and connect all the components correctly! 
(2) Call in a stored program from disc. 

(3) Execute a program that has been loaded. 

(4) List a program. 
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(5) Save a program on disc for use at a later date. 
(6) Halt a running program when something goes wrong. 


(7) Erase one or more characters on the line you are currently typing, or 
erase the whole line, before transmitting it to the computer. 


(8) Recognize the most common error messages and what they signify. 


In addition you ought to find out how to format a disc, Formatting is the 
process that takes a blank disc as it comes from the manufacturer and writes 
control information on it so that AMSDOS can use it for storing program files. 
CPC 6128 owners will find details on page 1-38 forwards of the User 
Instructions. Owners of cassette-only systems need not bother with 
formatting. 

These necessary but arbitrary points are those which tend to cause most 
confusion and annoyance among people who have never used a computer 
before. The difficulties of learning Basic are minor by comparison. 

It is important to get the feel of conversational computing; to get to know 
the keyboard and the effects of the various special keys; to master the 
essential procedures such as saving and loading; and to gain a sense of 
competence in using the computer, before going on to your own 
programming projects. If the system is strange to you when you come to try 
out your own programs, you will experience needless frustration. A good 
way to practise these basic skills is to type in short programs from computer 
magazines, or from this book, and try to make them run. Working out why 
they do not (not first time, anyway) can be an instructive pastime. 

If you stumble over the first steps, you may be tempted to say ‘oh well, I'm 
not a computer person’ and quit. Rather than give up so easily, try to find 
someone who is a ‘computer person’ to show you the ropes. There are plenty 
of them about. 

To err is human; to learn from our mistakes is human too. Even the experts 
were incompetents once. Some of them can still remember it. 


1.4.2. Program design 


Computers can be used, and misused. Two pitfalls to avoid when you start 
interacting with the computer are: firstly, sitting down with no idea of what 
you plan to do; and secondly, attempting something too complex too soon, 
and becoming discouraged. On the one hand your mind should not be blank 
when you confront the computer, and on the other hand you should not 
attempt anything over-ambitious (and fail) in the early stages. If you do, your 
home-computing career will be a short one. 

Remember also that programming is a problem-solving exercise, not 
purely a matter of coding. So do not try to make it up as you go along. Analyse 
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your problem first, then write down its solution. The golden rule is: put your 
program on paper before putting it into the computer. 

Over the years certain principles of good program design have been 
discovered. This theme will be taken up again at greater length in Chapter 9. 
Here it suffices to say that many beginners ignore these principles, as do 
many experienced programmers, through excessive haste. Time spent in 
thought beforehand is handsomely repaid in time saved later trying to fix 
mistakes that stem from poor program design. 

In this game impatience is the gravest sin. So 


THINK before you CODE before you TYPE. 


2 
Basic Basic 


ELEMENTARY PROGRAMMING 


In order to make the computer do calculations for you, it is necessary to 
specify exactly the sequence of operations it must perform. In other words, it 
has to be given a program (a list of instructions) in a language it can 
understand. One such language is Basic. A program in Basic consists of an 
ordered set of statements each one of which instructs the computer to carry 
outa single step in the computation. These statements are English keywords 
such as LET and PRINT, sometimes followed by mathematical expressions 
and always preceded by a line number. 

Thus, to apply the computer to your particular problem, using Basic, you 
must first break the problem down into a detailed sequence of small steps, 
then write the Basic instructions to carry out those steps in the correct order. 
This will be a Basic program for that task, which you can type in at the 
keyboard and test-run, amending it where it fails to work, until you have a 
successfully running version that can be saved for subsequent re-use. This 
process is illustrated in Fig. 2.1 below. 

This is inevitably a simplified outline, but it does capture two important 
points: firstly, that the business of programming is a process, comprising 
several more or less well-defined stages; and secondly, that we can 
describe the process in a hierarchical fashion — as having levels. The higher 
levels are more general, the lower levels more specific. This is a key feature 
of all modern approaches to programming. 

Notice also that we have presented the process in diagrammatic form, 
as a structure diagram. This visual method of representing processes 
can be extremely helpful during problem analysis, and we shall use it again 
later in the book. (The technique shown here is an adaptation of that used 
by Roy Atherton in Structured Programming with Comal, Ellis Horwood, 
1982). 

We use four kinds of boxes to draw structure diagrams. See Fig. 2.2. 

A processing action is put in a rectangular box. Simple actions need not 
be, or cannot be, further subdivided. 

A subprocess is a process which is complex enough to warrant its own 
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Fig. 2.1 The programming process 









N.B. A real 
program design 
also needs to 
specify the 
data structures 
used 
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Got a problem 
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A structure 
diagram 


description, in terms of another structure diagram, on a separate page. This 
allows us to avoid getting bogged down in details. 

A decision governs two or more branches. These are subsections of the 
whole, only one of which will actually be performed - depending on 
conditions tested when the decision is made. Each line descending from a 
decision box is labelled (e.g. Yes/No, True/False, T/F etc.) to show which 
choice it represents. 

A repetition box governs a subsection of the overall process which is 
repeated as long as, or until, some condition holds. In computing parlance it 
is known as a ‘loop’. 
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Fig. 2.2 Structure diagram symbols | 





i ‘ Processing inds of 
1. | Processing action Two kinds o 
z eperabion relationship : 


A. Left to right 


» [me ee | LL 
, eine Ist 2nd 3rd last 
——_——————> time 
Has two or more B. Above/ below 
3. branches, which 
are labelled s 
A 
Governs one 
of a ‘loop 


Decisions and loops are what give computers their great power, as we 
shall see. 

The lines connecting the boxes show dependency (downwards). 
Temporal sequence is shown by horizontal position (across). A box below 
another one isa part of the one above; a box to the right of another is carried 
out after the box to its left. 

Structure diagrams are not only (like flowcharts) useful for presenting the 
logic of a solution in an eye-catching manner they can also (unlike 
flowcharts) help in finding the solution in the first place. Moreover, you can 
convert a structure diagram into a well-structured program by following a 
simple set of rules: essentially you turn the thing on its side and walk round 
the tree translating the contents of each box into their Basic equivalent. (We 
shall have more to say on this in Chapter 9.) 

We could use structure diagrams to elucidate the logic of all sorts of 
sequential processes - e.g. cooking a spaghetti bolognese — but we really 
want them for constructing computer programs. We cannot do that until we 
have a kit of parts from which programs can be put together. 

Accordingly, this chapter introduces seven essential Basic statements. 
They form a foundation on which you can build as you progress. There are 
programming tasks which cannot be carried out using only these seven 
statements; but there is a surprisingly wide variety of tasks which can be. 
Furthermore, it would be very hard to find a Basic program of more than a 
few lines that did not use most, or all, of them. 
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But first, a little background on how a computer system stores information. 
Before we can think clearly about a program, we have to think about the data 
it will use. 








2.1 Data types 


Computers are information processors. When you learn to use a computer, 
you are learning, among other things, how it handles information. 

At the machine level all data is encoded in terms of binary digits or ‘bits’ 
which may be 0 or 1. 

For convenience, most computers group information into ‘bytes’ of 8 bits 
(or ‘words’ of anything from 16 to 64 bits) and deal with a byte or a word asa 
unit. 

It is important to realize that the meaning of a group of bits is not fixed: it all 
depends on what you do with it. A byte has no absolute value in itself. Its bit 
pattern merely selects one of a set of possible alternatives. It is an answer — 
which only makes sense when you know the question. 

With 8 bits there are 256 possibilities. They could be used to represent 
numbers from 0 to 255, or from — 128 to +127, or one of a repertoire of 256 
characters, or a machine code instruction, or a line of dots on the screen... 
or whatever you choose. The machine, or the programmer, assigns a 
different meaning to each one of those 256 states. 

Some meanings, however, are more likely than others; and these tend to 
be pre-assigned in various ways. For example: 


00101010 ‘means’: 


42 as a decimal number, 

2A as a hexadecimal number, 

LD HL, asa machine instruction (load the 16-bit HL register 
with the contents of a given memory address), 

oe as an ASCII character code, 

XXX, as a pattern of dots on the screen (with X for on and . 
for off), and so on. 


However, people - unlike computers — are not built to handle bit patterns. 
We find them confusing. We would rather deal with numbers or letters or 
other familiar symbols. One of the many things that Basic does for you is to 
convert from humanly meaningful information into bit patterns and back 
again automatically. 

Locomotive Basic provides three primary data types, from which others 
can be constructed. These are: integer or whole numbers, floating-point or 
fractional numbers, and character strings. For example: 
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l is an integer, 


1.5 is a floating-point number, 
“Two” is a character string. 


We shall postpone detailed discussion of strings until Chapter 5, but it is as 
well to know they are there. 


2.2 Arithmetic in Basic 


Many people think of computers simply as overgrown calculators — ‘number 
crunchers’. You will find later (for instance, in Chapters 5 and 7) that Basic 
can be used for other kinds of information processing, but of course 
numerical calculation is very important and Basic provides extensive 
facilities for it. 


2.2.1 Numeric constants 


A numeric constant is written as a series of decimal digits optionally 
preceded by a sign and optionally followed by an exponent part — the letter 
E followed by an optional sign (+ or —) followed by one or two digits. 
Leading zeros are not significant. Examples of valid numeric constants are 
shown below. 


Integral 0 ] 1988 -T1 
Decimal 0.75 1.60934 100.001 —9,87654321 
Exponential 1E7 S5E-10 —-—99.99E+9 0.314159265E01 


Commas are not allowed within a number, so twelve thousand is 12000 and 
not 12,000. Nor are spaces permitted, so 12000 is also wrong. 

In exponential notation E stands for ‘times ten to the power of’ and is used 
for scaling. Thus 1E7 equals one times ten to the power of seven which is ten 
million (10000000), and 0.314159265E01 is an approximation to pi 
(3.14159268). This scientific notation can save a lot of typing: consider the 
number 1.99E33 (the mass of the sun in grams). Writing it out in full would 
require 199 and then 31 zeros. 

The number after E is known as the ‘exponent’, hence ‘exponential’ 
notation. A positive exponent of n effectively shifts the decimal point n places 
to the right; a negative one shifts it n places to the left. 

You can also use hexadecimal notation to represent integers in 
Locomotive Basic. In this system numbers are represented to the base 16, 
and the letters A to F are used after 9 to give a full set of sixteen digits (0 to F, 
where F=15). Hexadecimal numbers are preceded by an ampersand (&), 
so &AA is the same as 170 (10x 16+10). 

Amstrad Basic stores integers as pairs of 8-bit bytes and floating-point 





ARITHMETIC IN BASIC ] 





17 





numbers using five bytes. The integers range from —32768 to +32767. The 
largest floating-point number is about 1.7E+38 (17 followed by 37 zeros) 
and the smallest approximately 2.9E—39. Anything smaller than that is 
indistinguishable from zero. Negative floating-point numbers are limited to 
the same range with opposite sign. Ifa computed quantity is too big to hold, 
the error message number 6 “Overflow” is printed and the program halts. 

The point to remember is that numbers are restricted to a large but finite 
range and that the computer's calculations are limited to at most ten decimal 
digits of precision. Integers have a smaller range but are held exactly as 
whole numbers. Floating-point values have a larger range but a lesser 
precision: they are best regarded as approximations. To overcome these 
limitations on size and accuracy requires extra programming effort. (This 
imprecision frequently surprises newcomers who have been led to think of 
computers as symbols of inhuman accuracy.) 


2.2.2 Variables 


Aconstant in program represents a fixed value. A value that can alter during 
program execution is known as a variable. 

In Amstrad Basic variables are given names by the programmer which 
have to begin with a letter. Variable names may contain uppercase and 
lowercase letters and digits, but may not be the same as a Basic keyword 
such as PRINT. Thus 


EDDY Eddy Al Frances 
are all legal variable names but 


1A (starts with a digit) 
2% (likewise) 

37 (is a number) 

Next (NEXT is a keyword) 


could not be. 

Note that in Amstrad Basic upper and lower case variable names are 
equivalent; so RICH, Rich, rich and indeed rIcH all refer to the same variable. 

Variable names followed immediately by a percent (%) sign, such as 
COUNTER%, are for integer values only. You can also append an 
exclamation mark (!) to variable names to indicate that they are for 
floating-point numbers, but this is the default case anyway. Integer numbers 
take up less storage space and are processed more quickly than 
floating-point numbers. Therefore there is considerable advantage in using 
integer variables for those parts of a computation where whole numbers are 
being manipulated. 

It is also possible to use the DEFINT instruction to declare that variables 
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starting with certain letters are integers. Thus, for instance, DEFINT b,c tells 
the system that variable names with initial B or C should be regarded as 
integers. 

You can think of a numeric variable as naming a storage cell capable of 
holding one number, which may change during the course of a computation. 
The variable’s name can be used to denote the value currently held at that 
location. 

Amstrad Basic presets numeric variables to zero, but it is not good 
practice to rely on this fact (since it is not common to all Basics). Programs 
look clearer when all variables are explicitly initialized, even when they start 
at zero. 





2.2.3 Arithmetic expressions 


Arithmetic expressions in Basic follow normal algebraic conventions as 
closely as possible, subject to the constraints that all symbols must be on one 
line and that all operators must be explicit, not implied. 

The simplest form of expression is a constant or variable. More complex 
expressions are built up by linking simpler expressions with operators. 
Subexpressions may be enclosed in brackets. 

The arithmetic operators, in order of precedence, are: 


A exponentiation; 
* and / multiplication and division; 
+ and — addition and subtraction. 


The order of precedence is important. When evaluating an expression Basic 
follows these rules to produce the final result: 


(1) Evaluate subexpressions in brackets, if any; 

(2) Evaluate any exponentiations, left to right; 

(3) Evaluate multiplications and divisions, left to right; 
(4) Evaluate additions and subtractions, left to right. 


Thus A + B * 2 means first multiply B by 2 then add A; whilst (A + B) * 2 
means add A and B then multiply by 2. Notice that paired brackets can be 
used to impose any desired order of evaluation, if the default priorities are 
not suitable. 

Amstrad Basic also has the operators \ and MOD, with the same priority 
as multiply and divide: they are used for whole-number operations. 
The backslash (\) divides two integers and truncates the result to a 
whole number. MOD yields the remainder. Thus 7 \ 2 = 3 while 7/2 =3.5; 
7 MOD 2 = 1 and 15 MOD 4 = 3. 

The picture is somewhat complicated by the three roles of the plus and 
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minus signs. The minus sign, for instance, may appear as the sign of a 
number (—16), as the negation operator (—X), and as the subtraction 
operator (16 — X). Confusion can be avoided by the judicious insertion of 
brackets. 

The best policy for the beginner is to avoid long complex expressions 
altogether by breaking them into smaller steps, and to insert brackets 
wherever ambiguity might arise — even if not strictly necessary. 








A few examples will help clarify these rules. (Assume that A = 1, B = —2, 


C= 1l0andZ=0.) 








Expression Result 
+1 1 

B —2 
—-C -10 
Z+10 10 
A-B 3 
c*10 100 
A/C 0.1 
agC+aA 1.2 
2/(C + A) 0.18181818 
4*Cnr2 400 
(4*C) a 2 1600 
B*C/(4—Z) + A —4 





As a further illustration, consider what happens when the final example is 
evaluated. 


B*C/(4—2Z)+A _ original expression 
—2* 10/(4—0) +1 compute values of variables 


—2* 10/441 evaluate subexpressions in parentheses 
—20/4+ 1 leftmost multiplication 

-5 +1 division 

—4 addition 


Incidentally, spaces are not significant in arithmetic expressions (except after MOD), 
so A + B — C means the same as A+B—C. 

To round off this section, here is a list of illegal expressions together with brief 
explanations of why they are not valid. A very common mistake is not having the same 
number of left and right brackets. 








Invalid expression Reason | 
1+ nothing after + 

INPUT — 1 INPUT is a keyword 

AB multiplication is * not. 


TB / 2 7B is neither variable nor expression 
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Invalid expression Reason 





X&YIZ & and | not operators 

OWA double division operator 

(A+B)/C) too many right brackets 

J A J — 5SE55 constant too large 

98.6. too many decimal points 

(Q5 +b unpaired left bracket 

123,456 + 1% comma not allowed in number 

96% % comes after variables, not constants 
*£!? gibberish 

AAAARGHHW!!!! OK, don't panic; we've finished. 





2.3 The LET statement 


The LET statement is the first, and probably the most important, Basic 
statement we consider. It assigns a value to a variable. Its general form is 


[LET] variable = expression 


where the word LET is optional (signified by square brackets). On the left of 
the equals sign is a variable name, on the right is an arithmetic expression. 

It causes the expression to be evaluated and then assigns the resultant 
value to the variable named. The LET statement, then, has two functions: 
firstly, to evaluate an expression or formula; and secondly, to alter the value 
of a variable so that the result is retained. Some examples follow. 


60 LETA=1 

100 LETN% =0 

200 LET j2=j2+1 

400 LETI% =I% \ 2 

800 junk = A*B / (C—D) 
808 garbage = junk 

888 NINE = FOUR + FIVE 


Line 60 sets variable A equal to 1. Line 100 sets N% equal to 0. Line 200 
adds 1 to j2 by first evaluating j2+1 then assigning this new value to replace 
the old value of j2. Line 400 also has the same variable (1%) on both sides of 
the assignment, effectively halving it. Lines 800 to 888 show that the word 
LET can be dropped: any statement not starting with a recognized keyword 
is taken to be a LET statement. 

Newcomers sometimes have trouble with assignments such as J=J*2 
where a variable appears on both sides of the equals sign (as in lines 200 and 
400 above). It is not an algebraic equality, but an order to the computer. 
Once you realize that it has two steps — first compute a value, then store itina 
variable — you should no longer find it puzzling. 
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2.4 Getting down to basics 





Six further Basic keywords are now described which, together with LET, 
form the nucleus of the Basic language. With them you can start to write 
useful programs. 

Each statement in Basic normally occupies its own numbered line, but it is 
possible to use the colon (:) to separate two or more statements on the same 
line. 

Note: In the model statement formats presented from here onwards, 
words in CAPITAL letters are keywords and must be typed as they appear. 
Words in lower-case letters describe constructions and should be replaced 
by an instance of the right kind, as detailed in the explanatory text. Square 
brackets [ ] enclose optional parts and curly braces { } enclose portions that 
may be repeated zero or more times. Other punctuation marks, e.g. 
commas, should appear as shown. 


2.4.1 END 


We begin, deliberately, at the END. END terminates the program. Its format 
is simply 
END 


and its effect is to inform the Basic system that it has reached the end of the 
program. In Amstrad Basic (unlike some other versions of Basic) END may 
occur more than once in a program, indicating several endpoints. 

When END is reached execution stops, Basic gives the prompt (“Ready”) 
and the system reverts to its input phase awaiting user commands. 

STOP is an alternative keyword with a slightly different effect. It halts 
execution but leaves the program in a state where it can be resumed by the 
CONT command. STOP can be useful for interrupting a program at a 
particular point during testing. 

If a program has no END or STOP statement, it can only be halted by 
pressing ESC (twice), by switching off the power or by ‘falling through’ the 
last program line. None of these methods is very elegant. 


2.4.2 GOTO 


Unless specifically diverted, Basic programs are executed in ascending 
line-number order. GOTO interrupts normal flow of control and causes 
transfer to a specified line. Its form is 


GOTO line-number 


where ‘line-number' specifies the next line to be executed which does not 
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have to be the line after the GOTO itself. Its purpose is to allow branching to 
another part of the program. Thus in 


100 REM preparing for take-off: 
110 GOTO 200 

120 REM over the top! 

200 END 


line 120 is skipped because line 110 instructs the computer to take the next 
instruction from line 200, which stops the program. 

Some Basics allow the destination of a GOTO to be an expression, so that 
statements like 


GOTO Jail 


are legal; but Amstrad Basic insists that the line number must be a constant. 

This seemingly inoffensive four-letter word is in fact one of the most 
notorious statements in computing. It has received a vitriolically bad press — 
not without reason, since its injudicious use makes programs incompre- 
hensible. 

We shall see soon that GOTO can usually be avoided. Meanwhile, treat it 
like strong liquor: a little can be pleasant; overindulgence will prove 
harmful. 


2.4.3 IF 


This statement can divert the normal sequential flow of processing, but only 
if a given relationship holds. Thus the programmer can test whether 
conditions have arisen during processing and make the program do 
different things depending on the outcome of the test. 

The IF statement introduces the possibility of decision-making into Basic. 
It is essential for any non-trivial program. Its form is 


IF condition THEN action [ELSE action] 


where ‘action’ stands for one or more statements (separated by colons if 
there is more than one, but all on a single line). 

What happens is that the statement or statements after THEN (the 
THEN-clause) are executed if the condition is true; and the statement or 
statements, if any, after ELSE (the ELSE-clause) are executed, if it is false. 
The ELSE part is optional. If it is omitted, and the condition is false, the ‘action’ 
consists of doing nothing. Thus 


125 IF A < THEN PRINT “Sub-zero!” 
prints the phrase 
Sub-zero! 
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on the screen if and only if variable A has a value less than 0. Otherwise it 
does nothing. While 


128 IF A >B THEN PRINT A ELSE PRINT B 


prints either A’s or B's value, whichever is greater. 

Conditions can be much more complex than the simple comparisons 
shown above. Amstrad Basic provides relational operators for comparison 
and logical operators for combining comparisons. 

The relational operators are as follows: 


< less than 

> greater than 

equal to 

less than or equal to 
greater than or equal to 
> not equal to 


AVA Il 
oil 


They allow numeric values to be compared. Thus 
dollars < = 1000 


is true if the value (i.e. contents) of variable dollars is less than or equal to 
1000; while 


BA2+ BA2=Ca2d 


is only true if A squared plus B squared equals C squared; otherwise it is 
false. 

The logical operators NOT, AND and OR (sometimes called Boolean 
operators in honour of the nineteenth-century logician George Boole) allow 
simpler conditions to be combined. 

NOT simply inverts the truth of the operand that follows it. Thus 


NOT 0 
is true, and 
NOT (A > B) 


is equivalent to 
A<=B 


in effect. 

AND is true if both its operands are true, false otherwise; OR is true if 
either of its operands is true, false if they are both false. 

NOT has the highest priority, AND the next highest priority and OR the 
lowest priority among the logical operators. All relational operators are 
equal in priority. They fit in just above the logical operators (and just below 
all the arithmetic operators) in precedence. 
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Thus 
1024 FA+B>CANDC>=0ORJ=0THEN.... 
means the same as 
1025 IF (A+B) > C) AND (C >= 0)) OR (J=0) THEN.... 


where redundant parentheses have been inserted to show which operators 
bind which operands. 

N.B. Amstrad Basic actually interprets the numeric value zero as false and 
any non-zero value as true, as illustrated by NOT 0 (above). Consequently it 
is possible to have variables or arithmetic expressions as conditions, such as 


2000 IF abnormal% THEN PRINT “error!” 


though this may sometimes lead to obscurity. 


2.4.4 INPUT 


This statement calls for values from the keyboard. It is a way to get 
information from the user into the program while it is running. Its form is 


INPUT [message;] varlist 


where ‘varlist’ stands for a series of one or more variable names (not 
expressions) separated by commas. 

When executed, it causes the computer to print the message (if there is 
one) then a question mark, and wait for user input. The program will only 
continue when the user has supplied values for all the variables in the list. 
Thus 


INPUT A,B,seed,percent% 


causes ? to appear on the screen. Then the computer pauses, expecting the 
user to type precisely four numeric constants, separated by commas and 
terminated by RETURN, of which the last must be a whole (not fractional) 
number. These four numbers will become the new values for A, B, seed and 
percent% respectively. 

Take care to supply as many numbers as there are variables in the input 
list: strange effects can arise from typing 3,4,5 when you meant 3,4.5 and 
similar small slips. 

The optional ‘message’ is a character string in quotation marks. It is used as 
a prompt, reminding the user of what is expected. Thus 


100 INPUT “Give no. of credit items ”; Credits% 
will cause 


Give no. of credit items ? 
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to appear, and await a value for the integer variable Credits%. This is clearly 
more helpful than the bald 


100 INPUT Credits% 


which requires the user to know how the program works. 
(If the semicolon after the message is replaced by a comma, the question 
mark will be suppressed.) 


2.4.5 PRINT 
This is used for output. Its basic form is 
PRINT list 


where llist' is a sequence of expressions, normally separated by commas or 
semicolons. The values of the expressions (which can of course simply be 
constants or variables) are calculated and printed in order on the screen. A 
new line is begun after each PRINT statement, unless the list of expressions 
ends with a semicolon. A new line can be forced at any stage by a PRINT 
statement with no list of expressions. 

Two examples follow. 


48 PRINT 10, A, 10/A, A/10 
80 PRINT “VALUE NO. "J%;“ IS” (A—1)*J% 
The first would cause the line 
10 20 0.5 2 
to be printed (assuming A=20); and the second would cause 
VALUE NO. 2 IS 38 
to appear (assuming J%=2). 
Items in the PRINT list separated by semicolons are closely packed 
together while items separated by commas are spaced out, normally in print 


zones of thirteen character positions. The size of the print zone can be 
altered by the ZONE instruction. Thus 


ZONE 8 


would set the zone width to eight characters. (More details can be found in 
Chapter 6.) 
Some additional points worth noting are the following. 


(1) A PRINT statement with no output list emits one blank line. 


(2) Ending an output list with a semicolon suppresses the new line 
normally output at the end of each PRINT, so the next PRINT will add 
more output immediately after the place where the last one finished. 
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(3) String constants (i.e. sequences of characters enclosed within double 
quotation marks) may be items in an output list, as in line 80 above, in 
which case they are printed just as they appear, without the quotation 
marks. 


(4) Where no ambiguity would arise, the semicolon or comma separator 
may be omitted between two items, in which case the semicolon is 
assumed. (For clarity, we do not exploit this short cut in the book: it is 
not recommended.) 


Further information on PRINT formatting can be found in Chapter 6. It can 
get quite complex, but there is enough here to begin with. 


2.4.6 REM 


This statement is often regarded as unimportant by the new programmer, 
and by many experienced programmers; yet some experts believe that at 
least half the lines in every program should contain REM statements! 

REM is simply a means of putting remarks or comments in the body of a 
program. Its form is 


REM text 


where the ‘text’ can be any printable characters. Its purpose is to allow the 
insertion of explanatory remarks in a program. Programs can be written 
without REM statements and can run successfully without them, but you will 
find they are useful when you come to revise a program written earlier by 
yourself or, worse still, by someone else. 

Usually, it only takes a couple of weeks to forget what the variables were 
for, why the program made certain tests rather than others, and indeed how 
it worked at all. If you take the precaution of sprinkling your programs 
liberally with explanatory comments, these problems will be minimized. 

Comments can be added to any other statement after a colon (statement 
separator), making the rest of the line a remark. Thus 


660 LET G = P *453.6 
has the same effect as 
660 LET G = P * 453.6 : REM convert Pounds to Grams 


except that the latter has a remark added to explain what is going on. Do not, 
therefore, despise the humble REM statement: it can save you many 
headaches if used wisely. 

If execution reaches a REM statement, it is passed over; execution 
continues with the next statement. So it is quite permissible to have a 
statement such as GOTO 960 where line 960 is a REM statement. 
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2.5 Editing 


A Basic program is normally built up by typing lines in, each preceded by its 
line number, on the keyboard. Lines can be entered in any order you like: 
they are automatically sorted by the Basic system. 

Every line must have its own unique number, in the range 1 to 65535. 
These line numbers serve two purposes: they determine the order in which 
statements are executed; and they identify lines for correction or insertion 
when the program is being edited. 

It is very likely that when you first type in a program it will contain 
mistakes. Basic makes it very easy to correct these, for instance by replacing 
the lines which are incorrect. Consider the effect of typing the following 
lines. 


10 REM -- First line 

20 REM -- 2nd line 

99 END 

30 REM -- Third line 

20 REM -- New second line 
40 REM Line 4 


The result of typing these lines in this order is to leave the following five lines 
in the working area of memory, in the order shown. 


10 REM -- First line 

20 REM -- New second line 
30 REM -- Third line 

40 REM Line 4 

99 END 


The lines have been sorted into ascending sequence, and the second 
version of line 20 has overwritten the first. If at this point we were to type a 
line numbered 35 it would be placed between lines 30 and 40. 

An incorrect line can be replaced merely by typing its line number and 
then the line as it should be, ended by RETURN. To delete a line altogether, 
just type its line number followed immediately by RETURN and that line will 
be erased from memory. 

For deleting large groups of lines the command DELETE is available. 


DELETE 1-100 


deletes lines 1 to 100 inclusive (i.e. line 100 and everything preceding it), 
while 


DELETE 100-9999 
deletes lines 100 to 9999 inclusive. (Careful!) The two commands 
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DELETE 1000- 
DELETE -1000 


delete respectively all lines from 1000 onwards and all lines up to 1000. 
These techniques are general to all Basics and are sufficient for most 
purposes, but the Amstrad microcomputers provide screen-editing facilities 
to make life much easier. 

There is an EDIT command whose format is 


EDIT linenumber 


where ‘linenumber'’ specifies the program line you want to amend. Once you 
give this command, the line concerned is re-displayed and you are able to 
move along it by using the cursor control keys (<-and-—>). Youcan enter this 
editing mode by giving a command such as 


EDIT 220 


and you will also find that the system puts you into this mode when it halts on 
account of a syntax error — displaying the offending line as it does so. 

All you have to do then to make corrections is to move the cursor left or 
right with the arrowed keys and perform the deletions and insertions 
required. Deletion can be done by using DEL in the normal way (deleting 
characters backwards) or by using CLR (to delete characters forwards). 
Insertion is accomplished simply by typing text at the point where it is to be 
inserted. To finish off the line, just press the RETURN key: you do not have to 
be at the end of the line when you do so. 

There is a second method of screen editing as well as the EDIT command 
described above. The keys with arrows on them at the right hand side of 
keyboard 


<- - 


t 4 


enable you to move a flashing cursor around the screen. Hold down SHIFT 
while you press one of these keys to enter a special editing mode in which 
the computer displays two cursors. The upper cursor (the ‘Read Cursor’) is 
the one you can steer round the screen. The lower one (a small block called 
the ‘Write Cursor’) shows what is being entered. 

Use the arrowed cursor-control keys (SHIFTed) to position the Read 
Cursor on whatever you want to copy, then press the COPY key as often as 
necessary to copy the text, which will appear at the position of the Write 
Cursor just as if you had typed it in. Parts that are incorrect can be skipped 
over by the left or right arrow keys and new text inserted by typing in the 
normal way. When the revised line has been assembled, press RETURN and 
— Bingo! — the new line is accepted as if it had all been typed in, replacing the 
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old one. It certainly beats re-typing in full, especially since COPY, like other 
keys, repeats itself automatically if you hold it down for half a second or so. 

Of course the DEL key may be used during editing to erase single 
characters, leftwards. 

Once you get used to the cursor control keys, you will wonder how you 
ever did without them. They are part of the appeal of the Amstrad computer; 
but their use is very much a matter of practice, not something that is best 
learned from a book. 

Note: It is advisable to number program lines in steps of five or ten to leave 
room for new lines to be inserted when the program is being revised. For 
this the AUTO command is most useful. 


AUTO 200,20 


provides line numbers 200, 220, 240 and so on without your having to type 
them. It saves typing and leaves gaps for afterthoughts. To escape from 
AUTO insertion mode, just press the ESC key. 

If the line numbering gets untidy, RENUM can be used for renumbering. 
For example, 


RENUM 100,20,10 


renumbers the current program starting at line 20 (which becomes new line 
100) and increasing in steps of 10. 


2.6 Example program [EASTERS] 


In the following example a program to calculate the date of Easter is typed in, 
then listed and run. The first attempt fails because the program contains 
errors at lines 170 and 330. It is edited using some of the facilities described 
in Section 2.5, and the revised program is then re-run and finally SAVEd on 
disc. (Be warned that the first version contains mistakes. To see the 
corrected version, look at the second listing.) 

Easter Day falls on the first Sunday following the first full moon on or after 
the Vernal Equinox, 21 March. The following algorithm - reputedly due to 
the great German mathematician Gauss — will calculate, for any given year 
(y%) between 1582 and 4903 ap, the date of Easter Sunday. (Assuming of 
course that Easter is still celebrated in 4903 ap.) 

The variables used can briefly be described as follows: cent% is the 
century; greg% is the ‘Gregorian correction’, ie. the number of years 
divisible by 4 such as 1800 and 1900 when a leap year was not held; gold% is 
the ‘golden number’ which is used to determine the position of an idealized 
moon; c% is the ‘Clavian correction’; and moon% is the epact, or age of the 
moon on | January. 
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The variables are used to compute d% in lines 230 to 320 of the program. 
Then if d% is less than or equal to 31, Easter ison March d%, otherwise it ison 
April d%-31. 

Integer variables (with the trailing % sign) are used here because we are 
in fact dealing with whole numbers and because integers take less storage 
space (2 bytes instead of 5) and are handled more quickly than floating-point 
numbers. Variable names are in lower case throughout. 

One of the pleasant features of Amstrad Basic is that keywords are put into 
CAPITAL letters even if you type them in lower case. Variables may be in 
upper or lower case, but in this book we normally prefer lower case because 
that makes the keywords stand out better visually - as landmarks in the 
program landscape. 











Listing 2.1 Easter day calculations 





{Initial Version] 


LOO REM BERR RRR RRR ERK KEKE KEKE KEK KK 


110 REM ** Listing 2.1 : belied 

120 REM ** EASTER DAY CALCULATIONS ** 

130 REM KKEKKKKEKKKKKKKKKKKKKKKKKKKKKKE 

150 PRINT "Program to compute date of Easter Sunday:" 

160 PRINT "give date prior to 1582 to end execution.": PRINT 
170 INPUY "Which year "; Y% 

180 IF Y% < 1582 THEN PRINT "Merry Xmas!";CHR$(7): END 

190 IF y% > 4902 THEN PRINT "You should live so long!" 

200 REM -- 2nd message is just a warning. 

210 REM -- main calculations start here: 

220 PRINT "Easter Day falls on "; 

230 cent = y% \ 100 + 1 

240 greg = 3 * cent% \ 4 - 12 

250 gold% = Y% MOD 19 + 1 

260 clav%’ = (8 * cent’ + 5) \ 25 - 5 - greg% 

270 e@ = 5 * Y&8 \ 4 - greg% - 10 

280 moons = (11 * gold% + 20 + clav%) MOD 30 

290 IF moon%=25 AND gold%>1ll OR moon$=24 THEN moon%=moon%+1 
300 d& = 44 - moon’ 

310 IF d& < 21 THEN d%=d%+30 

320 d& = d& + 7 - (d%+e%) MOD 7 

330 IF d%>3l THEN PRINT "April ";d% ELSE PRINT "March ";d% 
340 PRINT 

350 GOTO 170 

360 REM -- goes back for more. 

370 That “’s all folks! 


Ready 
run 
Program to compute date of Easter Sunday 


give date prior to 1582 to end execution 


Syntax error in 170 
170 INPUt "Which year "; Y% 
run 
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Program to compute date of Easter Sunday 


give date prior to 1582 to end execution 


Which year ? 1982 
Easter Day falls on April 42 


Which year ? 0 
Merry Xmas! 
Ready 


330 IF d%>3l THEN PRINT "April ";d%-3l1 ELSE PRINT "March ";d% 


[Corrected Version] 


100 REM. ® %% RR RR I RR RR RK 


110 REM ** Listing 2.1 : belied 

120 REM ** EASTER DAY CALCULATIONS ** 

130 REM KKK KEKE KEKKKEKKKKKKEK 

150 PRINT "Program to compute date of Easter Sunday:" 

160 PRINT "give date prior to 1582 to end execution.": PRINT 
170 INPUT "Which year "; Y% 

180 IF Y% < 1582 THEN PRINT "Merry Xmas!";CHR$(7): END 

190 IF y% > 4902 THEN PRINT "You should live so long!" 

200 REM -- 2nd message is just a warning. 

210 REM -- main calculations start here: 

220 PRINT "Easter Day falls on "; 

230 cent = y% \ 100 + 1 

240 greg% = 3 * cent% \ 4 - 12 

250 gold% = Y% MOD 19 + 1 

260 clav% = (8 * cent + 5) \ 25 - 5 - greg% 

270 e@ = 5 * Y& \ 4 - greg% - 10 

280 moon% = (11 * gold% + 20 + clav%) MOD 30 

290 IF moon$=25 AND gold%>1ll OR moon%=24 THEN moon%=moon$%t1 
300 d& = 44 - moons 

310 IF d& < 21 THEN d%=d%$+30 

320 d& = d& + 7 - (d%+e%) MOD 7 

330 IF d%>3l THEN PRINT “April ";d%-31 ELSE PRINT "March ";d% 
340 PRINT 

350 GOTO 170 

360 REM -- goes back for more. 

370 That ’s all folks! 


RUN 
Program to compute date of Easter Sunday: 
give date prior to 1582 to end execution. 


Which year? 1982 
Easter Day falls on April 11 


Which year? 1983 
Easter Day falls on April 3 


Which year? 1984 
Easter Day falls on April 22 


Which year? 1985 
Easter Day falls on April 7 
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Which year? 1986 
Easter Day falls on March 30 





Which year? 1987 
Easter Day falls on April 19 


Which year? 1988 
Easter Day falls on April 3 


Which year? 1999 
Easter Day falls on April 4 


Which year? 4444 
Easter Day falls on April 24 


Which year? 5555 
You should live so long! 
Easter Day falls on April 17 


Which year? 1 
Merry Xmas! 


Notice that this program does not run correctly at the first attempt. This is fairly 
typical, even for a short program. The first RUN threw up an error message 


Syntax error at line 170 


because INPUT had been spelt INPUY. The correction, using the cursor 
control and copy keys, was simple. But that was not the end of the story. It 
turned out that we had put d% where we should have put d%-31 in line 330. 
(Compare the two versions.) This led the program to the bizarre conclusion 
that April 42nd was the date of Easter in 1982! Such mistakes (luckily) are 
easy to spot, since they lead to nonsensical results. But this is not always the 
case: you should be alert to the possibility that a program giving plausible 
output may still contain errors. 

Having rectified lines 170 and 330, the program finally ran and gave 
correct answers. Was it worth waiting for, to find out that Easter will be on 
4 April 1999? 

You may not think so, but this is exactly the sort of fiddly calculation which 
computers are good at and people (speaking for ourselves) usually get 
wrong. 

Before leaving this example, it is worth mentioning the use of the LIST 
command to examine portions of the program. 


LIST lists the entire program 
LIST n lists line n 

LIST n-m lists lines n to m inclusive 
LIST n- lists from line n onwards 
LIST -m lists up to line m 
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Finally, what about line 370? 

It's not Basic but it causes no problem because execution never gets there. 
The Basic editing system actually allows almost any text to be typed in after a 
line number, which can be a useful way of data entry. 

The reason control never reaches line 370 is that line 350 sends it back to 
170. This is a crude form of repetition: we shall see more elegant ways of 
repeating sections of program in Chapter 3. 

The END which eventually halts the program is not at the very end: it is 
part of the IF statement in line 180. CHR$(7) just sounds a buzzer. (More on 
that in Chapter 6.) 


2.7 Quiz 


It is all too easy to imagine you are learning when you are not; so here is a 
short multiple-choice test to enable you to check your understanding of the 
concepts presented so far. 


2.7.1 The questions 


Select one of (a), (b), (c) or (d) as the correct answer and mark it in pencil. 
The answers are overleaf but do not under any circumstances look at them 
until you have made a selection for each question. 


Ql. Arectangular box with no descendants in a structure diagram signifies 
(a) a simple action? 
(b) a sub-process? 
(c) a decision? 
(d) a repetition loop? 


Q2. When a Locomotive Basic program will not stop, it can be forcibly 
halted by 
(a) typing STOP on the keyboard? 
(b) pressing the BREAK key? 
(c) switching off the power supply? 
(d) pressing ESC? 


Q3. Which ofthe commands below is used to read ina program from disc? 
(a) NEW 
(b) LOAD 
(c) LIST 
(d) OLD 
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| Fig. 2.3 Life, the universe and everything 





: After- 
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Stay Get Get Stay 
married divorced married single 


Q4. 


QS. 


The structure diagram above presents a stark view of life. Which of the 
statements below are true of it? (Only one is.) 

(a) Marriage occurs at least once a lifetime. 

(b) All good people go to heaven after death. 

(c) While there is life there is hope. 

(d) Bigamy is not allowed. 


Roughly how many Basic statements would you expect to be required 
ina program that calculates the day of the week on which Easter falls in 
any year from 1582 to 4902? 

(a) 1 

(b) 27 

(c) 100 

(d) 10 


Only one of the following is a valid Amstrad Basic statement. Which 
one? 
(a) leta+1=0 





Q7. 


Q8. 


QUIZ 








(b) GOTO 66000 
(c) five =2+2 
(d) OUTPUT Y 


The value of 10 * 10 — 5/2is 
(a) 25 

(b) 25.0 

(c) 97.5 

(d) 47.5 


One of the Basic statements below is invalid. Which one? 
(a) REMEMBER THE FIFTH OF NOVEMBER! 

(b) LIST 40 

(c) LIST 40+80 

(d) LIST 40—80 





sees! 
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2.7.2 The answers 


What do you mean, turning over without even attempting the quiz? You won't 
learn much just by skimming. 
Go on. Do it properly. It won't take long, and it will teach youa thing or two. 


Al. 


Aa. 


A3. 


Aa. 


AS. 


A6. 


AZ. 


As. 


(a) Yes. 

(b) No. That would have bars down the sides. 

(c) No. Decisions have at least 2 descendants. 
(d) No. Repetitions are shown by rounded boxes. 


(a) Try it: you won't get very far. 

(b) No. There is no such key. 

(c) Not recommended: too drastic. 

(d) Yes, but you may have to press it twice. 


(a) No. NEW clears the program area for keyboard entry. 
(b) Right. 

(c) No. LIST lists the program on the screen. 

(d) No. OLD is used to recover after NEW or BREAK. 


(a) Not necessarily. Death could occur before marriage. 
(b) No. There may be no afterlife. 

(c) Nice try, but you are reading between the lines! 

(d) Quite right too. 


(a) You got it in one: PRINT “Sunday!” 

(b) No. You are calculating the date, not the weekday. 
(c) Not likely: you really fell for that one. 

(d) Sorry, it was a trick question. 


(a) No. You need a variable on the left of '=', not an expression. 
(b) No: 66000 is too big for a line number (Max. 65535). 

(c) Yes, it's an assignment, though it looks rather odd. 

(d) No. OUTPUT is wrong; PRINT is the output command. 


(a) No. 5/2 ensures a fractional result. 

(b) No. The * and / are done before subtraction. 

(c) Yes. 

(d) No. Read Section 2.2.3 about the precedence of operators. 


(a) No. This is a valid REM or REMark statement. 
(b) No: this lists program line 40. 

(c) Yes: this is wrong. 

(da) No: this lists lines 40 to 80 inclusive. 


If you have scored less than 5 out of 8 you are already beginning to lose 
touch. You should re-read Chapters | and 2 before continuing, preferably 
typing in and test-running the example programs to get a feel for the thing. 


3 
Loops and lists 


ITERATIVE PROCESSING 


One of the concepts that gives the digital computer its great power is the 
idea of a loop. A loop describes a repetitive process; and the computer 
really comes into its own when required to perform a loop, because although 
computers are not clever they are very fast. 

For that reason one of the arts of computer programming lies in describing 
a solution in terms of the repetition of a few simple operations over and over 
again. 

In general a loop may be charted as in Fig. 3.1, below. Such a diagram 
characterizes an iterative process. Notice that a loop has an initialization 
phase (often forgotten), an exit test, and a process which is repeatedly 
executed - usually referred to as the loop body’. There may also be some 
sort of ‘finale’ which tidies up after the loop has mun its course. 


[ Fig. 3.1 Generalized loop _ | 








Set initial 
values 
Perform 
process 


It is important that the actions within the loop body have an effect on some 
variable used in the exit test so that after a finite number of repetitions the 
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loop will terminate. Otherwise you have an endless loop, the bugbear of 
careless programmers. 

A more dramatic example is illustrated in Fig. 3.2. This loop has an 
additional ‘finalization phase’ after the main process — in which someone has 
to clear up the mess. 








Fig. 3.2 Russian roulette ] 


Russian roulette 
Load gun with While still 
one bullet alive 

Spin Put gun Squeeze 
chamber to head trigger 


A loop may be constructed in Basic by using an IF statement for the exit 
test and a GOTO to cause recycling at the end of the loop body. Older Basics 
forced this style of programming upon the user. However, looping is such an 


essential notion that modern implementations, including Amstrad Basic, 
have special keywords for dealing naturally with repetition. 














3.1 Repetition 


Amstrad Basic distinguishes two kinds of loop — a deterministic loop that 
depends on a counter (handled with the FOR/NEXT construction), and an 
indeterminate loop where the programmer need not know in advance how 
many repetitions will be carried out (for which the WHILE/WEND pair is 
provided), 

The latter case is more general, but deterministic loops are simpler so we 
deal with them first. 


3.1.1 FOR and NEXT 


Below is a little program for printing a Centigrade/Fahrenheit conversion 
table, so you can see how hot it ‘really’ is when the thermometer registers 32 
degrees Celsius or suchlike. Gasp! 





| REPETITION 











| Listing 3.1 Centigrade to Fahrenheit | 





10 REM ERR RRR KKEKKEKKKKEKKEKKEK 
11 REM ** Listing 3.1 : ae 


12 REM ** CENTIGRADE TO FAHRENHEIT ** 
15 REM 1 RII III IRI I ok 


20 REM -- F = 9/5*C + 32 

40 PRINT "Celsius","Fahrenheit" 
50 FOR c = 0 TO 50 

60 f = 9/5 * c + 32 

70 PRINT c,f 

80 NEXT c 

99 END 


The initialization is carried out in lines 40 and 50; lines 60 and 70 constitute 
the loop body; line 80 is, in effect, the exit test; and the finale - line 99 — 
consists simply of ending the program. Try it on your machine. 

This illustrates the FOR loop in action. The general form of the FOR 
statement is 


FOR counter = initial TO terminal [STEP stepsize] 


where ‘counter’ is the variable being used as the loop-count, also known as 
the ‘index’. ‘Initial’ is an arithmetic expression which will be the starting value 
of the counter, and ‘terminal’ is another expression placing a limit on the 
number of repetitions. The '‘stepsize’, if present, specifies the amount to be 
added to the index variable each time the loop is repeated. Repetition 
ceases when that variable passes the terminal value. 

If the STEP phrase is omitted (as in the temperature example) an 
increment of + | isassumed. Thus the normal case is to step upwards through 
all the values from initial to terminal one by one. But other stepsizes, 
including negative or fractional ones, may be specified. If the stepsize is 
negative, the counter will be decremented — counting down from initial to 
terminal. 

Each FOR statement must have a matching NEXT. Its form is 


NEXT [variable] 


where the ‘variable’ is optional, but if present must be the variable used as 
the counter by the FOR statement. NEXT closes the loop, whose body 
consists of all statements enclosed between FOR and NEXT. 

In most cases it is advisable to use integers to control FOR loops, both 
because integers are processed faster and because floating-point stepsizes 
can lead to round-off errors. 

Here is our temperature converter rewritten to take account of this advice. 
This time a STEP portion is used to make it count downwards in steps of 
2 degrees. We have also taken the opportunity to give the variables 
more meaningful names. 
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| Listing 3.2 Temperature converter 

10 REM KREKKKKKKKKKKKKKKKKKKKKKKKKKKKEK 
11 REM ** Listing 3.2 : “*% 
12 REM ** TEMPERATURE CONVERTER we 


15 REM KREKKKKKKKKKKKKKKKKKKKKKKKKKKKEK 
100 PRINT "Celsius","Fahrenheit" 

110 FOR celsius% = 100 TO 0 STEP -2 
120 fahrs = 9/5 * celsius% + 32 

130 PRINT celsius%,fahrs% 


140 NEXT 

150 END 

Celsius Fahrenheit 
100 212 
98 208 
96 205 
94 201 
92 198 
90 194 
88 190 
86 187 
84 183 
82 180 
80 176 
78 172 
76 169 
74 165 
72 162 
70 158 
68 154 
66 151 
64 147 
62 144 
60 140 
58 136 
56 133 
54 129 
52 126 
50 122 
48 118 
46 LES 
44 LT. 
42 108 
40 104 
38 100 
36 97 
34 93 
32 90 
30 86 
28 82 
26 79 
24 75 
22 72 
20 68 
18 64 
16 61 
14 57 
12 54 
10 50 
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ON SO 
w 
a 


Loops may be nested one inside the other, but may not overlap. An inner 
loop must be totally enclosed within an outer one. Two examples should 
clarify this rule. 


100 REM -- Valid Nesting: 
120 INPUT rows%,cols% 

140 FORr% = 1 TO rows% 
150 FOR c% = 1 to cols% 


160 PRINT “*”; 
170 NEXT c% 
175 PRINT 

180 NEXT r% 

199 END 


100 REM -- Invalid Nesting: 
120 INPUT rows%,cols% 

140 FORr% = 1 TO rows% 
150 FOR c% = 1 TOcols% 
160 PRINT “?”; 

170 NEXT r% 

175 PRINT 

180 NEXT c% 

199 END 


Try them. The first will display a rectangle of asterisks (rows% deep and 
cols% wide) on the screen. The second should produce a line of question 
marks followed by an error message. 

The error arises in attempting to end the outer loop involving r% before 
the inner one using c%. This is not allowed: the loop that starts earlier must 
finish later. 

The first example also presents a style of indentation which exhibits the 
nesting of loops in visual form. This enhances the legibility of programs and 
will be used throughout the book. It is a good idea to make such an 
indentation scheme a habit of your own. Not only does it make programs 
easier to read, it can also be valuable in spotting mistakes, since a listing that 
does not return to the left margin indicates a missing NEXT (or WEND) 

The second, invalid, example is not indented because no indentation 
format could be consistent. 
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3.1.2 WHILE and WEND 


Not all loops depend on incrementing or decrementing a counter. The 
WHILE statement is for loops where the number of repetitions is not known 
in advance but a terminating condition can be specified. Its form is 


WHILE condition 
followed by a sequence of statements ending with 
WEND 


where ‘condition’ is a Boolean expression that evaluates to true or false as 
explained in Section 2.4.3. 

The statements between WHILE and WEND are executed repeatedly 
until the condition becomes false. Then execution carries on with whatever 
comes after the WEND. 

Notice the following points. 


(1) The exit test is made at the start of the loop, so the loop body may be 
skipped entirely in some cases. 


(2) There may be many statements between an opening WHILE and its 
closing WEND, including of course embedded WHILE/WEND loops. 


Some languages — such as Pascal or BBC Basic —- have a REPEAT/UNTIL 
construction which ensures the loop is always executed at least once. The 
‘zero-trip loop’ is used more than you might think, however, and it is always 
possible to force a single execution if necessary. 

To illustrate this, let us return to our game of Russian roulette, where to 
avoid the main loop altogether would smack of cowardice! 





i Listing 3.3 Russian Roulette 





10 REM KEKKKKKKKKKKKKKKKKKKKKKKKKKKKK 

11 REM ** Listing 3.3 : we, 

12 REM ** RUSSIAN ROULETTE blied 

15 REM KEKKKKEKKKKKKKKKKKKKKKKKKKKKKKEK 

100 REM -- Russian Roulette with a 6-gun: 
110 maxshots%=6 

120 full% = INT(RND*6)+1 

130 PRINT "Chamber";full%;"has the bullet." 
135 PRINT 

140 goes% = 0: bang% = -99 

150 WHILE goes% < maxshots% AND bang% <> full% 
160 bang% = INT(RND*6)+1 

170 PRINT "chamber" ;bang$%; 


180 IF bang%=full% THEN PRINT: PRINT "Aarrgh!" ELSE PRINT " click." 


190 goes% = goes% + 1 

200 WEND 

210 IF bang%<>full% THEN PRINT: PRINT "Well done: you survived!" 
220 END 








REPETITION 
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Ready 
run 
Chamber 1 has the bullet. 


chamber 6 click. 
chamber 5 click. 
chamber 4 click. 
chamber 1 

Aarrgh! 

Ready 


run 
Chamber 2 has the bullet. 


chamber 3 click. 
chamber 3 click. 
chamber 6 click. 
chamber 6 click. 
chamber 1 click. 
chamber 1 click. 


Well done: you survived! 
Ready 


This time the rules are relaxed (slightly!) to permit the possibility of 
survival. The game ends either with the player's demise or when he has 
made six spins of the chamber. This is embodied in the dual condition 


goes% < maxshots% AND bang% <> full% 


linked by the logical connective AND. (N.B. line 120 generates a ‘random’ 
integer from | to 6 inclusive: more details in Chapter 4.) 

A couple of specimen runs are appended. In one our brave Russian 
survives; in the other he does not. 

Try it yourself a few times. How often would you expect a player to get 
through the complete set of six shots? You can experiment by altering 
maxshots%: the difference between, say, maxshots%=3 and maxshots=12 
should be dramatic. 


3.2 Arrays 


In Basic, an array is simply an ordered collection of numbers. (It could also 
be a collection of strings, but we will leave that till Chapter 5.) The array 
represents a way of storing a group or aggregation of data under one name. 
Individual elements or members of the array are picked out by an 
identifying number known as ‘subscript’. 

There is a natural relationship between the array and the loop: loops apply 
repetition to program statements, arrays, on the other hand, apply repetition 
to data. Consequently, as we shall see arrays are frequently processed by 
looping. 

Arrays have one or more ‘dimensions’. A one-dimensional array is termed 








LOOPS AND LISTS 








a ‘vector’, or sometimes a ‘lst’; a two-dimensional array is called a ‘matrix’ or 
‘table’. Arrays of three, four and more dimensions are permitted in Amstrad 
Basic, but we shall not be concerned with them here. Multi-dimensional 
arrays, as you will find if you use them, eat up storage at a prodigious rate. 

A vector is an ordered list of variables. If an ordinary variable is thought of 
as a storage location for one number then a vector is a row of locations for 
holding several numbers. A ten-element vector (A) is depicted in Fig. 3.3. 


A (@) () (2) (3) (4) (5) (6) (7) (8) = (9) ~— Subscript 


An individual item in this vector is designated by following the array name 
(A) with a numeric expression — the subscript - in parentheses. Thus A(1) 
refers to element 1 and A(J%) to element J%. Note that the lowest-numbered 
element is at position zero, not one, so if J#=7 then A(J%) is actually the 
eighth item in sequence. 

Asubscript may be a constant, variable or expression. If the subscript has 
anon-integer value it is rounded to the nearest whole number. Thus A(5) and 
A(5.25) both refer to the same element (the sixth item), but A(5.77) refers toa 
different item, namely A(6). If the subscript expression is out of bounds — 
below 0 or above the array's maximum - Basic reports an execution error 
and halts the program. 

A matrix is essentially a table of values. Matrices are usually described in 
terms of rows and columns. In order to identify an element of a matrix, two 
subscripts are required. A twenty-element matrix B% with four rows and five 
columns is illustrated in Fig. 3.4. 


|} Fig. 3. 4 evens " ‘Twenty-element m: matrix, named B% 


Column -subscript 











Row-subscript 
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Each box in this diagram is capable of holding one number (in this case an 
integer), and is denoted by following the array name with two subscripts in 
parentheses separated by a comma. Conventionally, the first subscript is 
considered to specify the row and the second the column, so that B%(0,2) 
refers to the cell on row 0, column 2 (not row 2, column 0) - the one containing 
the asterisk in the figure. Again, the subscripts can be any arithmetic 
expressions and are rounded if not integral. Subscript values that are out of 
bounds cause error messages. 

An array element may be used anywhere that a variable can be referred 
to. 

Vectors and matrices give the programmer a means of organizing data. In 
Basic, the array is the most important means of data structuring. Many 
operations on large collections of data, such as sorting a list into ascending or 
descending order, would be virtually impossible without arrays. 


3.2.1 The DIM statement 


The DIM statement (short for DIMension) is used to set up arrays. It allocates 
a block of storage inside computer memory for an array or arrays. Its form is 


DIM name(size) {,name(size)} 


and its purpose is to reserve space for one or more arrays. The ‘size’ will bea 
single numeric value for a vector or two numeric values separated by a 
comma in the case of a matrix. Several arrays may be declared in the same 
DIM statement. Some examples follow. 


20 DIM DAYS%(12) 

22 DIM chessmen%(8,8), Zonk(1000) 
23 DIM line%(linemax%) 

25 DIM bloc%(285) 


Line 20 sets up a thirteen-element integer vector called DAYS% with 
subscripts ranging from 0 to 12. Line 22 defines two arrays, a matrix anda 
vector. The matrix chessmen% might well serve to represent the state of 
play in a chess game. Since subscripts begin with zero it has 9 x 9 = 81 
elements. This might be thought a wasteful way of holding information on the 
8 x 8 = 64 squares of a chessboard; but it is sometimes worth sacrificing 
space for a simpler numbering scheme, and people prefer to count from one 
rather than nought. 

The vector Zonk will contain room for 1001 floating-point numbers. These 
will occupy 5005 memory-locations. The vector line% has its size specified 
by a variable linemax%. This means that its size is determined when the 
program runs by the contents of linemax%, not written into the program. By 
allowing variable-dimensioned arrays in this way Locomotive Basic permits 
greater flexibility than many mainframe computer languages. 
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Finally line 25 allocates a block of 256 contiguous storage locations for 
integers. This will actually take up 512 bytes of RAM. 

Array names follow the same rules as variable names: begin with a letter 
and continue with letters and/or digits. The percent sign at the end, if 
present, indicates that the array is for holding integers; if absent it is for 
floating-point numbers. 

The numbers in brackets give the upper limits for the subscripts. These do 
not have to be constants, as shown on line 23 above. However, once an array 
has been dimensioned its size is fixed for the rest of the program. It can only 
be redimensioned by using the ERASE instruction (which erases its contents 
and reclaims the memory space it used) and then DIMensioning it again 
from scratch. Thus 


50 ERASE Zonk 


would remove all trace of the array Zonk. Another array called Zonk, witha 
different shape and size if desired, could be created afterwards. 

Amstrad Basic will assume that undeclared arrays have a maximum 
subscript value of 10. This is meant to be helpful, but in fact it just disguises a 
number of typing errors that are easily made. You are advised not to rely on 
this default assumption, but to DIMension all arrays explicitly, even if they 
have a size of 10. 


3.2.2 Matrix operations 


Some versions of Basic provide special matrix-handling statements. These 
can be used for operations on an entire matrix or vector at one time. They are 
most convenient for ‘number crunching’ applications on large computers. 
Amstrad Basic, like most microcomputer implementations, does not support 
them, so we do not use them in this book. 


3.3 Example program [SORT] 


Sorting, in computer parlance, means the arrangement of data into 
ascending or descending sequence. 

Computers spend a great deal of their time sorting, mainly in order to 
make retrieval of information easier, either for man or machine. The reason 
for this is obvious if you consider how much easier it is in a standard 
telephone directory (where subscribers are listed alphabetically) to find the 
number of a particular person than the name belonging to a given phone 
number. 

Our program uses the simple Selection Sort to order a set of numbers. This 
is one of the least complex (though not the most efficient) ways of sorting 
algorithms. 
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It works by making a series of passes through a vector. Each pass finds the 
location of the largest value in the array, and at the end of each pass this 
maximum value is exchanged with the final element. This puts the last 
element into the correct place; therefore that element may be ignored on the 
next pass. 

Thus each pass is one step shorter than the previous one; and the process 
terminates when the next pass would have only one item to consider. 

The program makes use of the keyword TIME to measure how long the 
sorting takes. As you can see, to sort 20 numbers takes more than twice as 
long as sorting 10 numbers. This is a general feature of all sorting methods. 

Selection Sort is not a particularly fast technique. Consequently it is 
unsuitable for large data sets. It is generally quicker than the well-known, 
but hopelessly inefficient, Bubble Sort, but markedly inferior to Quicksort or 
Heapsort. 


Listing 3.4 Simple selection sort 

















LO REM BERR RRR RR RRR KERR EK KKK KK 


11 REM ** Listing 3.4 : we 
12 REM ** SIMPLE SELECTION SORT ae 
15 REM KKK KKEKKEEKKKEEKKKKKKKKKKKKKKEK 


100 REM -- Chapter 3: 


110 REM -- Simple Selection Sort, 
120 REM -- by R.S. Forsyth, Nov-85. 
130 : 


140 PRINT "How many items to be sorted "; 
150 INPUT n&% 

160 DIM datlist(n$%) 

170 FOR i=l TO n% 

180 INPUT datlist(i%) 

190 NEXT 

200 : 

210 REM -- Now reorder them: 
220 t=TIME : REM time at start. 
230 last%=n% 

240 WHILE last% > 1 

250 largest%=last% 

260 FOR i=l TO last%-1 


270 IF datlist(i%) > datlist(largest%) THEN largest%=i% 
280 NEXT if 
290 REM -- now swap last with largest: 


300 temp=datlist (last) 

310 datlist(last%)=datlist(largest$) 
320 datlist(largest%)=temp 

330 last%=last%-1 

340 WEND 

350 t=TIME - t : REM time taken 

360 : 

370 REM -- now the output: 

380 PRINT 

390 PRINT "To sort";n%;"numbers took";t/300;" secs." 
400 PRINT 

410 FOR i=l TO n% 

420 PRINT i%,datlist (i$) 
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430 NEXT 
440 PRINT 
999 END 


How many items to be sorted ? 10 
? 77 

? 88 

? 22 
2-4 

? 8 

? 88 

? 888 
? 8888 
? 0 

? 100 


To sort 10 numbers took 0.343333333 secs. 


-4 
0 
8 
22 
the 
88 
88 
100 
888 
0 8888 
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How many items to be sorted ? 20 
? 20 

? 1948 

? 1985 

? 1986 

? 0 


ww 
wo 


999 
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Vvv 
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Loa Ny 
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To sort 20 numbers took 1.07666667 secs. 


=99 
-1 
0 
0 
0 
1.25 
10 
20 
23 
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10 31 
11 37 
12 77 
13 88 
14 99 
15 101 
16 999 
17 1948 
18 1985 
19 1986 
20 9999 


The sorting is achieved by the WHILE loop on lines 240 to 340. Within that 
loop is another (a FOR loop) from lines 260 to 280. The inner loop performs 
one pass through the array datlist() from position 1 to position last*—1. Asa 
result it sets variable largest% to the location of the biggest value in the 
section of the array being scanned. When the inner loop terminates, lines 
300 to 320 swap the last item with the largest. Then | is deducted from last% 
(since the final item is now in place) and the process continues until last% is 
less than 2. 

Lines 170 to 190 do the input of unordered data. Lines 400 to 440 display the 
ordered data. The line 


160 DIM datlist(n%) 


shows a vector being declared witha variable specifying its size. This means 
that the array has exactly the required upper limit on each run (10 the first 
time, 20 the second in our example) so space is not wasted. 

Try running the program a few times to see how the time taken rises with 
the number of items to be sorted. Do not attempt more than 200 items, unless 
you have plenty of time to kill. 

What happens if n% is zero? Is the program's behaviour sensible in this 
extreme case? If not, can you put it right? 


3.4 Exercises 


Here is some suggested homework to keep you out of mischief for a few 
hours. 


1 Modify the selection sort program of Section 3.3 to give the output in 
descending order, by altering line 410 not line 270. (Hint: use STEP with a 
negative increment.) 


2. The Fibonacci series is the sequence of integers 0, 1, 1, 2, 3, 5, 8, 13, 2], 
34, 55... where each term after the first pair is the sum of the previous terms. 
It was first proposed in the thirteenth century by Leonardo of Pisa as a 
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(tongue-in-cheek?) model of population growth among breeding rabbits, 
and has been fascinating mathematicians and biologists ever since. 

Write a program to produce this series of numbers, stopping when it has 
printed a number greater than one million. Although these numbers are 
integers, you will find that Amstrad's integer variables will not hold numbers 
of this magnitude, so you will be forced to employ floating-point variables. 
(Note, however, that no arrays are needed.) 


3. Light travels approximately 299792km in 1 second. There are 
1.609344 km to the mile and 60*60*24**365.2422 seconds in a year. Write a 
program which reads distances in light-years and prints out the equivalent 
distances in ‘mega-miles’.. (By a mega-mile we mean one million miles.) 
Some practice distances for testing are tabulated below. 











j Light-years Mega-miles 
Sun 0.0000157366 92.5 
Pluto (average) 0.000684477 4024 
Alpha Centauri 4.3 25 277 500 
Sirius 8.7 51 142869 
Rigel 500 


Lesser Magellanic Cloud 185000 
Andromeda Galaxy 2.2 million 





Pretty big eh? 


4. Write a program to read in an array of integers and print them out in 
reverse order. For example, given the input 


19 4 8 10 2 
its output should be 
21028 4 9 1. 
(N.B. This is not a sorting problem.) 


5. Write a program to produce a Centigrade/Fahrenheit conversion chart 
for temperatures from 0°F to 100°C. Use the fact that 


C = (F—32) * 5/9. 


(See also Section 3.1.1.) 
The table should begin as follows. 
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| Cc F 
-1L.7T17 0 
~ 17.2222 1 
S47 14 
— 16.6667 
~16.1111 3 
~16 3.2 
— 15,5886 4 
~15 5 





In other words, the problem is to coordinate TWO separate series — one 
stepping through whole numbers of degrees Centigrade, the other through 
degrees Fahrenheit. This entails a kind of merging. The hard part is to 
ensure that the two series are properly interleaved. (No arrays are needed 
in this one either.) 


6. An asset depreciates at P percent per annum (0 < P <= 100) until it 
reaches its ‘salvage value’, or rock-bottom resale price. 

Write a program to read in an asset's cost, its salvage value and a 
depreciation rate as a percentage, and to display an annual depreciation 
schedule. For example, an asset costing £2000 with a salvage value of £1000 
would depreciate at 20% as follows. 





i Year Depreciation Value | 


0 0 2000 
1 400 1600 
2 720 1280 
3 976 1024 


4 1000 1000 


Make sure that the final year is correctly handled — ie. that it does not go 
below the salvage value. 


7. Write a program which finds the day in the year given a date in the form 
DD, MM, YYYY. Thus, given 


30, 04, 1982 
for 30th April 1982, it should produce the answer. 
120 


indicating that it was the 120th day of 1982. 

Leap years should be dealt with correctly: a year that is divisible by 400 is 
a leap year, so is one divisible by 4 as long as it is not divisible by 100 too. 
(You can use MOD to test for divisibility.) 


4 
Subprograms 


MODULAR PROGRAMMING 


A subprogram or routine is any section of a program which performs an 
identifiable task, and can be called from different parts of the main program 
to perform that task. Basic provides two kinds of routines — subroutines and 
functions — though Amstrad Basic does not implement functions in their full 
generality. 

Routines are useful whenever you want to break a long complex job into 
subtasks, or modules, that can be tested independently, then brought 
together to make a complete program. Only experience can tell you when 
and how to use this modular approach, and you will find it rather 
long-winded when you first try it. You will be handsomely repaid, however, 
in time saved in program designing, debugging, testing, maintaining and 
upgrading. 

It is not always possible to include every repetition of a given sequence of 
instructions within a loop, and it is extremely tedious to have to enter the 
same sequence of instructions at different places in the same program. Even 
with the COPY facility, it is time wasted. The alternative is to make that 
sequence a routine in the first place, so that it can be used in different parts of 
the program simply by ‘calling’ it, without having to retype the statements 
that comprise it. Even if a routine is used only once in a program, it can 
simplify the program in design and appearance by removing detailed code 
from the main program, leaving it asa ‘shell’ of easily documented subtasks — 
writing a title page or a menu on the screen, for example, or reading in a 
valid date and converting it to a standard format, or sorting a list of numbers. 

You can also create a library of useful routines on disc or tape, and select 
what you need when writing new programs — more time and effort saved. 
The MERGE command allows pre-written routines to be inserted into the 
current program (from disc or tape) as if you had typed them at the 
keyboard. 

Routines have two further advantages: they allow you to work with larger 
program building blocks than the elementary (or ‘primitive’) operations of 
Basic; and they allow you to express in a natural way the hierarchical 
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structure which most non-trivial computations possess. The first facility 
means that you can customize Basic with your own routines: they are 
effectively new commands, after all. The second facility simplifies the 
essential problem of program design into one of problem analysis — if you 
can describe and then reproduce the structure of the problem, you have 
almost solved it! The more you use routines and the modular approach to 
problem-solving, the more effective your programming. Before very long, 
you will wonder how you ever managed without them. 





4.1 GOSUB and RETURN 


A routine is any program section that you choose to call a routine. It can be 
one line or it can be the whole program. That may not be a very helpful 
statement, but it does illustrate Basic's flexibility in these matters. Of course, 
a routine is normally a section of code set apart from the main body of the 
program because it performs an identifiable task, and called into action from 
more than one point in the program. That is more helpful, but true only by 
convention: you may find occasions when a routine has none of these 
characteristics, but is still demonstrably a routine, and clearly useful. 

A routine is called by directing control to its first line. GOTO followed by a 
line number seems the obvious way to do this, but how, when execution is 
complete, to return control to the point in the program immediately after the 
routine's call? The whole point of a routine is that it may be called from 
several different places in the main program. Somehow it must remember 
where it came from on any given occasion. GOSUB and RETURN provide an 
answer to this problem. See below. 








Listing 4.1 Reversing numbers 





10 REM KREKKKKEKKKEEKKEEKKEKKAKKKKKKKKKKEK 

11 REM ** Listing 4.1 : ee 

12 REM ** REVERSING NUMBERS ill 

15 REM KEKKKKKKKKKKKKKKKKKKKKKKKKKKKEK 

50 N = -99 

100 REM -- Numeric reversal and Palindrome tester: 
150 WHILE N <> 0 

200 tl = 100000 

250 GOSUB 1000 : REM get the input 

300 numb = N 

350 GOSUB 2000 : REM reverse it 

400 PRINT: PRINT "I think you typed",numb;" ?" 
450 IF numb=N THEN PRINT "A Palindrome!" 

500 GOSUB 2000 : REM reverse it again 

550 PRINT: PRINT "Or did you type ",numb;" ?" 
600 PRINT 

650 WEND 

800 END 

999 : 
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1000 REM -- S/R to get input N: 

1010 N = -99 

1020 WHILE N<O OR N>tl 

1030 PRINT "Enter a 5-digft number "; 
1040 INPUT N 


1050 IF N <> INT(N) THEN N=-99 : REM fractions no good. 


1060 WEND 

1070 RETURN 

1080 REM -- result (validated) in N. 
1090 : 

2000 REM -- Numeric reversal routine: 
2010 REM -- uses numb, m, d, k% 

2020 m = 0 : REM m is the new version. 
2030 FOR k%=1 TO 5 

2040 d = numb - INT(numb/10) * 10 
2050 m=m* 10 +4 


2060 numb = INT(numb/10) 

2070 NEXT k% 

2080 numb = m : REM inverted value. 
2090 RETURN 

2100 : 


Ready 

run 

Enter a 5-digit number ? 12345 

I think you typed 54321 ? 
Or did you type 12345 ? 


Enter a 5-digit number ? 12.345 
Enter a 5-digit number ? 99999 


I think you typed 99999 ? 
A Palindrome! 


Or did you type 99999 ? 


Enter a 5-digit number ? 10201 


I think you typed 10201 ? 
A Palindrome! 


Or did you type 10201 ? 
Enter a 5-digit number ? 77 

I think you typed 77000 ? 
Or did you type TEN, 72: 
Enter a 5-digit number ? 54321 

I think you typed 12345 ? 
Or did you type 54321 ? 


Enter a 5-digit number ? 10000 


I think you typed Ls 4 


Or did you type 10000 ? 





GOSUB AND RETURN 
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Enter a 5-digit number ? 0 


I think you typed 0 ? 
A Palindrome! 

Or did you type 0 ? 
Ready 


This demonstrates several interesting points. 


(1) The idea has paid off already: the trivial program in Listing 4.1 uses the 
routine at line 2000 onwards twice, but you have to type those lines only 
once. If we didn't use a routine you would have to type those lines 
twice, doubling your chance of making a mistake. Your logical errors in 
those lines would have to be corrected twice, as well. 


(2) We have put the routine after the END so that it cannot be executed in 
the normal run of the program, but only when control is directed to it. 


(3) We have used variables, such as Numb, to communicate necessary 
values to the routine. Such values are termed ‘parameters’, and the 
communication itself is called ‘passing parameters’. (However, 
Amstrad Basic does not support parameter passing in the fullest sense, 
unlike Pascal and certain advanced Basics.) 


(4) We have, in a small way, customized Basic. GOSUB 2000 is a new 
command, and it's all ours! 


So routines do make sense, even on this small scale. 

When the GOSUB (short for GO to SUBroutine) command is obeyed, Basic 
automatically notes the position of the next instruction, and when the 
RETURN is encountered, control passes back to that instruction — even if that 
instruction is in the middle of a multi-statement line. 

Now if we RENUMber the program the line numbers in any GOSUB 
instructions are adjusted so that they continue to point into their subroutines. 
The return address is not affected by the RENUM command because it is 
implied: RETURN tells Basic to go back to just after the last GOSUB which 
was obeyed. 

You can watch the flow and twist of control by issuing the TRON command 
before you run the program. This causes the interpreter to print the line 
number [inside square brackets] of each program line as it begins 
execution. (To cancel this, give the TROFF command.) 

It paints a rather confusing picture at first, but if you make the display 
pause, you will get a chance to study the patterns of program execution. You 
can make a program pause by pressing ESC (only once) and restart it by 
pressing any other key (e.g. the space bar). If you press ESC a second time, 
of course, the program stops altogether, though it can be restarted with the 
CONT command. 
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4.1.1 Recursive subroutines 


Subroutines can be ‘recursive’ — they can call themselves, though not without 
limit, as running this little demonstration will show. 


100 CLS: deep%=0: GOSUB 200 
200 deep%=deep%+1: PRINT “LEVEL ”; deep%: GOSUB 200 


The subroutine increments and prints the value of deep%, thus showing the 
depth of recursion that has been reached, and then calls itself, so 
descending to the next level - rather like a cat biting its own tail. This could 
go on forever in theory, but in practice the Basic interpreter muns out of 
memory for storing return addresses, at which point the systems breaks in 
with an error message (e.g. "Memory full in 200"). 

Recursive algorithms are very powerful, but trying to understand them 
can give youa sore head. It is like peering into parallel mirrors. Consider the 
following demonstration. 





Listing 4.2 The ladder of recursion — see opposite 





Subroutine 2000 here, which does nothing really beyond demonstrating 
recursion, is split in half by recursive call 


2040 GOSUB 2000 


to itself. The first half of the subroutine is repeatedly obeyed under the 
influence of line 2040: with each call of the subroutine, the value of d% — our 
depth gauge — increases as the recursion deepens. However, d% reaches a 
limit of 15 and a RETURN is executed from line 2020. This causes control to 
pass to line 2050 — the next instruction after the GOSUB call at line 2040 - and 
the second half of the subroutine is repeatedly executed under the influence 
of the RETURN at line 2080, thereby unwinding the recursion. This goes on 
until d% reaches the top level (not quite back on the surface, but at 
periscope depth anyway). A final RETURN is carried out in line 2070, 
sending control back to the main program at line 300. 

Asimple example like this is not exactly easy to follow, and anything much 
trickier can become impenetrable — especially when you are trying to 
debug it. Amstrad Basic makes recursion harder than it ought to be (chiefly 
because it does not support ‘local variables' and named procedures) but it is 
a fascinating technique nonetheless. Although best avoided in Basic, it is 
worth knowing about in case you progress to higher (or deeper) things. 
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LO REM BERR RRR KEKE EEE KEKE KKK KK EK 


11 REM ** Listing 4.2 : bane 


12 REM ** THE LADDER OF RECURSION ** 
15 REM 2 III III III IO 


100 CLS: d%=0: de%=400 

200 GOSUB 2000 : REM dive in! 

300 PRINT TAB(0);"Home at last!" 

400 END 

999 : 

2000 REM -- Recursive subroutine: 

2010 d%=d%+l: PRINT TAB(d%);"Level";d% 

2020 IF d%>=15 THEN RETURN : REM escape route 
2030 FOR tickt=1 TO de%: NEXT tick% : REM delay loop 
2040 GOSUB 2000 

2050 FOR tick%=l1 TO de%: NEXT tick% : REM delay 
2060 d%=d%-1l: PRINT TAB(d%);"LEVEL";d% 

2070 IF d%=l1 THEN RETURN 

2080 RETURN 

2090 


Level 1 
Level 2 
Level 3 
Level 4 
Level 5 
Level 6 
Level 7 
Level 8 
Level 9 
Level 10 
Level 11 
Level 12 
Level 13 
Level 14 
Level 15 
LEVEL 14 
LEVEL 13 
LEVEL 12 
LEVEL 11 
LEVEL 10 
LEVEL 9 
LEVEL 8 
LEVEL 7 
LEVEL 6 
LEVEL 5 
LEVEL 4 
LEVEL 3 
LEVEL 2 
LEVEL 1 
Home at last! 


4.1.2 Pitfalls of using subroutines 
Using subroutines can create particular kinds of bugs. 


(1) Omitting an END or a RETURN so that control passes to a subroutine by 
falling into’ it. This causes an “Unexpected RETURN” error. 


(2) Changing main-program variables accidentally by using them inside a 
routine. This happens most often with loop counters. If you regularly 
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use K% for example, as a loop variable then you might easily write it 
both in a main program loop and - inadvertently — in a subroutine 
called within that loop. The value of K% would be changed inside the 
subroutine with unpredictable effects on return to the main program. 
You might find it worthwhile adopting a convention to avoid this, such 
as always ending subroutine-only variable names with 9 (K9, LEO9, 
ASI9, for example). 





Point 2 above shows the most important weakness of subroutines: they do not 
permit local variables - i.e. variables that belong only (privately) to the 
subroutine. Program variables are global: they can be accessed anywhere 
in the program; and according to Sod's Law they probably will be, just at the 
wrong moment. 

In Amstrad Basic there is not much you can do about this, except to take 
obsessive care about the use of global variables within subroutines. 


4.2 Functions and function definition 


Functions differ from subroutines in that they can pass parameters (or 
‘arguments’) as part of the call instruction, they have names like vari- 
ables and they return values like arithmetic expressions. The pre-defined 
functions (see Appendix F) are part of Basic, and you may have started using 
some of them, probably without realizing that they were anything out of the 
ordinary. 


4.2.1 Predefined functions 


The most commonly used functions are listed below. 





f Function Result 





ABS(X) Absolute value of X, ignoring sign 

COS(X) Cosine of X 

EXP(X) Natural exponent of X (e to the power of X) 

FIX(X) X rounded towards zero 

INT(X) Integer part of X, those digits to the left of the decimal point 
(truncated) 

LOG(X) Natural logarithm of X, base e (X > 0) 

RND Random fraction between zero and one 

SIN(X) Sine of X 

SQR(X) Square root of X, provided X is non-negative 

TAN(X) Tangent of X 
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In the trigonometric functions, such as COS, the numeric argument X is 
normally expressed in radians; but you can convert all trigonometric 
functions to working with degrees with the DEG instruction. 

When you write, for example, 


100 root = SQR(n) 


you are calling a subprogram whose name is SQR, passing it as its argument 
the current value of a variable (n) and finally treating SQR(n) as an 
expression, just like (n + 2) or any other arithmetic expression. So if n=49, 
the value of root would be set to 7, and likewise with other values of n. These 
pre-defined functions are special cases of the general class of functions. 


4.2.2. User-defined functions 


You can also create your own functions with the DEF FN (DEFine FunctioN) 
command and use them in your programs. In effect, you are giving a 
shorthand name to a long and complicated formula. The format ofa function 
definition is 

DEF FNvarname [(arguments)] = expression 


where ‘varname’ names the function and should follow the normal rules for 
variable naming. The optional ‘arguments’ are names for the parameters that 
will be passed into the function, and the ‘expression’ on the right computes a 
value -— normally with reference to the arguments on the left. If there are 
several arguments, they must be separated by commas. Thus 


50 DEF FNvelocity(rate) = 36 / 16.09344 * rate 


defines a function called FNvelocity with one argument that converts a 
speed in metres per second to miles per hour. Given this definition, the 
statement 


5800 LET speedmph = FNvelocity(ms) 
is equivalent to 
800 LET speedmph = 36 / 16.09344 * ms 


because the expression (ms) in the function reference gives its value to the 
argument rate in the function definition. Here ms is a simple variable, but it 
could be any arithmetic expression. 

Although this facility is a rather half-hearted implementation of the 
concept of a function, it can still be very useful. Notice particularly the 
following points. 


(1) User-defined functions are just like the pre-defined Basic functions, but 
must be prefixed by FN to indicate to the Basic interpreter that the next 
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word is the name ofa user-defined function. Omitting the FN prefix will 
cause an “Unknown user function” error. 


(2) Unlike subroutines, function definitions should be put somewhere in 
the program where control will fall into them before they are called. 
The function is not defined until its DEF statement has been ‘executed’. 


(3) Functions are not commands, they must always be used as parts of 
expressions, like variables, so 


100 SIN(zeta) 
is illegal, and must be changed to something like 
100 sine = SIN(zeta) 


to make a valid Basic statement. 


(4) The argument (the variable zeta here) of a function definition is a 
‘dummy’ or ‘formal’ parameter. When the function is called, the actual 
value of the argument used in the call replaces the formal parameter 
wherever it occurs in the definition. If there are several arguments, 
replacement is determined by position, not name: the nth expression 
in the call replaces the nth formal parameter in the definition. 
Argument names are local to the definition in which they appear. 


If these concepts seem puzzling, have a look at the following example 


which prints a value (in the this case Pi) to a varying number of decimal 








places. 
Listing 4.3 Rounding a numeric value | 

10 REM KEEKKKKEEEKKEEKKEEKEKEKEEKEKEKKKKKEK 
11 REM ** Listing 4.3 : ae 
12 REM ** ROUNDING A NUMERIC VALUE ** 
15 REM KKK EKKKEKKKKKKKKKKKKEK 
50 

55 DEF FNroundup(numb,dplaces$)=INT(numb*10*dplaces$+0.5)/10“dplac 
est 

60 : 

100 PRINT " No. of Dec. Rounded Value" 
110 PRINT " Places of Pi" 

120 FOR n%=0 TO 8 

130 PRINT n%,FNroundup(PI,n%) 

140 NEXT n%& 

150 PRINT 

160 END 

No. of Dec. Rounded Value 

Places of Pi 

0 3 

1 3 

2 3.14 

3 3.142 
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4 3.1416 

5 3.14159 

6 3.141593 

7 3.1415927 
8 3.14159265 


The function FNroundup rounds a number up to the stated number of 
decimal places, given by the second argument. Notice that its arguments are 
separated by a comma in the definition and the call. Notice too that the 
pre-defined function INT is employed for truncation within the user-defined 
function. This is perfectly legal. 

Incidentally PI itself is a predefined function, which happens to require no 
arguments. User functions may also be defined without arguments, in which 
case the bracketted portion of the definition is omitted entirely. It is also 
possible to define a function with arguments which are never used. Thus 


600 DEF FNzero(junk,rubbish)=0 


is defined with two arguments but does not use them. (We didn't say it was 
useful!) 


4.3 Example program [BISECTOR] 


The following program uses a user-defined function and a subroutine, to give 
you some idea of what such things look like in action. The objective of the 
whole program is to find the root of an equation (which is defined by a 
function). 





‘Listing 4.4 Bisector 








10 REM BERK EEKEKKEKKKK KK 


11 REM ** Listing 4.4 : ** 

12 REM ** BISECTOR (Example Ch. 4) ** 

15 REM REEKKKKEKEEKKEEKEEKKKKKKKKKKKEK 

50 : 

55 DEF FNroundup(numb,dplaces$)=INT(numb*10*dplaces%+0.5)/10“dplac 
est 

60 : 

100 CLS: GOSUB 1000 : REM define function of interest. 
110 MODE 1 

120 PRINT " -- BISECTOR --" 

130 PRINT " This program finds a root, x0" 

140 PRINT "of the equation y = f(x)" 

150 PRINT "such that f(x0) = 0 (+ or - a small error)." 
160 PRINT "the function f(x) is defined on line 1010" 
170 PRINT "in terms of the x-coordinate." 

180 PRINT "| The root-finding subroutine on line 2000" 
190 PRINT "onwards is called with three parameters:" 
200 PRINT "xbtm and xtop enclose a root of f(x)" 

210 PRINT "and nearzero is the zero-error." 

220 PRINT 
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230 PRINT "Hit 1 to GO or 0 to STOP"; 
240 INPUT n% 

250 IF n%=0 THEN STOP 

260 xbtm = -30 

270 xtop = 30 

280 nearzero = 0.002 


290 : 

300 GOSUB 2000 : REM main routine 

310 : 

320 IF root% THEN PRINT TAB(7);"ROOT = ";FNroundup(x,4) 


330 IF root%=0 THEN PRINT "Root not found after";maxloops%;"bisect 
ions." 


350 END 

999 

1000 REM -- Routine enclosing function definition: 

1010 DEF FNy(x) = (x-1)*(x-6)*(x-12) 

1020 RETURN 

1030 REM -- alter line 1010 to change equation. 

1040 : 

2000 REM -- Bisection Subroutine: 

2010 REM -- uses xbtm,xtop,x,midvalue,ybtm,ytop, root%,maxloops$% 


2020 root%=0 : REM root not found. 

2030 maxloops%=LOG((xtop-xbtm) /nearzero) /LOG(2)+8 

2040 ybtm = FNy(xbtm) 

2050 ytop = FNy(xtop) 

2055 counter%=0 

2060 PRINT "Cycle","Xbtm","Xtop" 

2070 WHILE root%=0 AND counter% < maxloops% 

2080 x = (xtoptxbtm) * 0.5 

2090 midvalue = FNy(x) 

2100 IF ABS(midvalue) < nearzero THEN root%=1l 

2110 IF midvalue*ytop < 0 THEN xbtm=x: ybtm=midvalue 
2120 IF midvalue*ybtm < 0 THEN xtop=x: ytop=midvalue 
2130 counter %=counter$+1l 

2140 PRINT counter%,xbtm,xtop 

2150 WEND 

2160 x = (xtop+xbtm) / 2 

2170 RETURN 

2180 : 


-- BISECTOR -- 

This program finds a root, x0 
of the equation y = f(x) 
such that f£(x0) = 0 (+ or - a small erro 
r). 
the function f(x) is defined on line 101 
0 
in terms of the x-coordinate. 

The root-finding subroutine on line 20 
00 
onwards is called with three parameters: 


xbtm and xtop enclose a root of f(x) 
and nearzero is the zero-error. 


Hit 1 to GO or 0 to STOP? 1 


Cycle Xbtm Xtop 
1 0 30 
2 0 15 
3 7.5 15 
4 11.25 15 
5 11.25 13.025) 
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6 11.25 12.1875 
7 11.71875 12.1875 
8 11.953125 12.1875 
9 11.953125 12.0703125 
10 11.953125 12.0117188 
11 11.9824219 12.0117188 
12 11.9970703 12.0117188 
13 11.9970703 12.0043945 
14 11.9970703 12.0007324 
15 11.9989014 12.0007324 
16 11.9998169 12.0007324 
17 11.9998169 12.0002747 
18 11.9998169 12.0000458 
“9 11.9999313 12.0000458 
20 11.9999886 12.0000458 
ROOT = 12 
Ready 


This program assumes that you are faced with the problem of knowing an 
equation, such as 


XA3 — 19*XA 2 + 90*X — 72 = 0 


but not knowing how to solve it — that is, how to find values of X for which the 
expression on the left of the equality sign really does equal zero. Here we 
find a root by simply taking a range of X-values which must include a root 
because the corresponding values of the expression at either end of the 
range have opposite sign — as in Fig. 4.1. 


Fig. 4.1 Range containing a root | 


y top 









| 
| 
| 
| 
| 
x root [Mid point] AOE 


We can see that ybtm (the value of the expression when X = xbtm) is 
negative, and that ytop is positive; somewhere between xbtm and xtop, 
therefore, must lie a value of X at which the curve crosses the X-axis, and at 
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which the value of the expression is equal to zero. This will be a root of the 
equation. 

We can find values for xbtm and xtop by inspection or by trial and error: in 
the expression above, for example, the expression has a large negative 
value when X = —30 anda large positive value when X = 30. There must be 
at least one root, then, in this range. 

We can find the root by the method of bisection: 


(1) Find the midpoint of the range boundaries, and evaluate the function at 
that point (midvalue); 


(2) If midvalue is zero, then the root is found; 


(3) If the sign of midvalue is opposite to that of ytop, then set xbtm equal to 
the midpoint and repeat from step 1; 


(4) If the sign of midvalue is opposite to that of ybtm then set xtop to 
midvalue and repeat from step 1. 


In the program itself the routine at line 2000 executes this bisection 
process, given the starting points xbtm and xtop, and assuming that they are 
genuine endpoints ofa root-enclosing range. The function FNy evaluates the 
expression for the current value of X. When the result is smaller in magnitude 
than a tiny value held in the variable near zero, it is treated as zero. 

The routine is called in line 300. Prior to this its parameters (which are in 
fact global variables) are given the upper and lower range limits. 

This subroutine can find roots ofa wide range of numeric functions. All you 
need to alter is the definition of FNy on line 1010. (Note that this definition is 
actually packaged within a subroutine, which is called at line 100 to define 
the function initially.) 


4.4 Exercises 


1. Write functions to generate the square, cube and cube root of any 
number. Generalize them into a pair of subprograms that yield the nth power 
or the nth root of a given number. 


2. The Drunkard's Walk is a classic simulation, well-suited to home 
micros: 

‘The drunk staggers away from his lamppost in the middle of a flat open 
square; his every step is randomly directed around the compass and there is 
no method in his steps — but they are always the same length. Simulate his 
walk, and report constantly on the number of steps taken, and his current 
distance from the lamppost.’ 

If you know about co-ordinate geometry, then this is just a programming 
problem. Do a neat job using functions and subroutines. 
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If you don't think you know about geometry, then just imagine that the 
surface of the square is covered by a rectangular grid whose lines run 
north-south and east-west, and that their central intersection is the 
lamppost. At any time our man will be standing on or near a grid intersection, 
and we say that the co-ordinates of that point are its distance east and north of 
the lamppost. West is the same as negative east, and south is negative north. 

We can use the RND function to generate an angle between 0 and 360 
degrees, and we can say that his pace length is L centimetres: if he takes a 
step on a compass heading of H degrees then E2 and N2, his new 
co-ordinates, are calculated thus 


E2 = El + L * SIN(H) 
N2 = N1 + L * COS(H) 


where E] and N1 are the co-ordinates of the point that he stepped from to 
reach (E2,N2). His distance D from the centre is calculated by Pythagoras's 
Theorem: 


DA 2=E2 A 2+N2 A 2. 


And that is all the geometry you need. The trigonometric functions - like SIN 
and COS - are already present in the language, so off you go and solve the 
problem! 


3. Pascal's Triangle looks like this: 


After the first row, every element is formed from the sum of the two elements 
above-left and above-right. Generate the triangle to any depth you think 
reasonable. 


4. Write a program that calculates the time in minutes, hours, days or 
weeks between one date and another. If you wrote it in good style previously 
(in answering Exercise 7, Chapter 3), you will find it easy to adapt for this 
problem. What other time-calculating services can you add on to this 
program? 


5. Prime numbers are important to mathematicians; they are numbers 
with no factors: no whole number divides into them except one and 
themselves. Write a program to find prime numbers. 

The trick here is realizing — or being told — that the factors of a number 
come in pairs, so that if you know one, you can calculate the other; one of 


| 


<—s 
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every pair of factors must be less than or equal to the square root of the 
number, so you do not have to search half as exhaustively as perhaps you had 
thought. 


6. A new set of postage stamps is to be issued, as soon as their 
denominations can be agreed on. There will be four in the set, and you can 
never put more than six stamps on one envelope. What should the 
denominations be to ensure good ‘coverage’ — i.e. ideally, that it should be 
possible to combine stamps so as to cover all postal charges between one 
penny and six times the value of the dearest stamp? 


7. Perfect numbers are numbers whose factors (including 1) add up to 
exactly the number itself. 


the factors of 6 are 1, 2, 3; 
the sum of 1, 2 and 3 is 6. 


Can you discover the next perfect number, and the one after that? 


8. In statistical analysis there are three kinds of ‘average’ for a group of 
observations. They are called the mean, the median and the mode. 


The mean is the sum of all the observations divided by the number of 
observations. 

The median is a single value from the data set, such that, if the 
observations are put in order, the median is the middle-most. 

The mode is simply the most frequently occurring value. 


Thus in the sample (12, 14, 14, 14, 23, 25, 29, 33, 39), the mean is 22.5; the 
median is 23, and the mode is 14. 
Write a program to find these values for any collection of observations. 


5 
Character strings 


NON-NUMERIC COMPUTING 


Acharacter string is any sequence of characters that is to be treated by Basic 
as non-numeric. Thus, 


23456. 789 is a numeric sequence, 
“23456. 789" is non-numeric. 


The distinction is not immediately obvious. If we run these two lines: 


100 PRINT 23456.789 
200 PRINT “23456.789" 
RUN 

23456.789 

23456.789 


there seems no difference in the output; but if we add these two lines: 


300 PRINT 23456.789 * 4 
400 PRINT “23456.789” * 4 


then Basic executes the first three, but stops at the fourth line with a "Type 
mismatch" error message. Evidently there is a difference and it can only be 
the fact that the number is in quotes in one case and not in the other. The 
quotes, in fact, label their contents as non-numeric, which is why line 400 
causes a type mismatch: “23456.789" is the wrong type of data to include in an 
arithmetic expression, whereas 23456.789 (without the quotes) is obviously a 
number, and, therefore, entirely suited to arithmetic expressions. 

Strings, then, are non-numeric data that we cannot include in arithmetic 
expressions; so what can we do with them, and what are they for? 

The answers are as bald as the questions. We can concatenate them, as 
we can slice them, and we can compare them; and they are primarily for text 
processing. This last is their true importance, of course, and it has been 
noticeably lacking so far from our catalogue of Amstrad Basic facilities. To 
set this aright, then, we need to know how to input text, how to store it, how to 
manipulate it, and how to print it out. 
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5.1 String variables 


String variables follow exactly the same meaning conventions as numeric 
variables with the addition of a dollar ($) character at the end of the name. 
Thus 


word$ pronounced ‘word-string' or ‘word-dollar’ 
L2$ pronounced '‘L2-string’ or ‘L2-dollar' 
million$ pronounced ‘million-string' or ‘million-dollar’ 
Shoe$ pronounced ‘Shoe-string’ or ‘Shoe-dollar' 


are all legal string variable names. 
Like numeric variables, string variables can be assigned values in the 
program or can be the object of the INPUT statement, as below. 


100 welcome$ = “Hello” 

200 INPUT “WHAT'S YOUR NAME”; name$ 
300 PRINT welcome$ name$ 

RUN 

WHAT'S YOUR NAME? eric 

Helloeric 


In this program the string variable welcome$ is assigned the value “Hello”, 
while name$ takes its value from the keyboard in the course of the INPUT 
statement. In line 300 the two variables occur one after the other in the PRINT 
statement, and the effect of this is that the contents of name$ - whatever we 
entered in response to the INPUT command - are printed directly after the 
contents of welcome$; a semicolon is not necessary here because the dollar 
signs tell Basic where one variable ends and the other begins. 

You will notice that the program prints “Helloeric’. There is no space 
between the two words, even though one was typed as the first character of 
the input. If you change line 100, however, 


100 welcome$ = “Hello ” 


putting a space after the ‘o' of 'Hello’, then when you run the program again 
that space will separate the two words in the output, as follows. 


Hello eric 


This shows that string variables can contain trailing spaces (spaces at the 
end of the string), while the INPUT instruction ignores leading spaces 
(spaces at the start of the string). In fact string variables can contain both 
leading and trailing spaces. 

By experimenting further with line 100 and what you enter when you run 
the program, you will find that string variables can contain any combination 
of the characters you can type (and some that you cannot, but more on that 
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later), though there seems no way to include the quotation symbol (") as part 
of a string. Nor does it seem possible to enter a comma as part of your 
response to the INPUT statement. We return to the first point later, and the 
second point follows from the way that INPUT works: the comma signals the 
end ofan input item, so that several data items can be entered consecutively. 
An amended version of the program demonstrates this. 


100 welcome$ = “ Hello” 
200 INPUT “Enter first-name, second-name ”; forename$,surname$ 
300 PRINT welcome$ surname$ forename$ 
RUN 
Enter first-name, second name ? Grace,Darling 
Hello DarlingGrace 


In the input, the comma separates the first name ("Grace’, stored in 
forename$) from the second name ("Darling", stored in surname$). Without 
this convention the INPUT statement could accept only one data item per 
line, since there would be no way of telling where one stopped and another 
started. The comma is called a ‘delimiter’ when it is used in this way. The 
character generated when you press RETURN is called a ‘terminator’, but 
also acts as a delimiter. Suppose we enter only one name to the program 
above, and then press RETURN: 


RUN 

Enter first-name, second-name ? Grace 

?Redo from start 

Enter first-name, second-name ? Grace,Darling 
Hello DarlingGrace 


The RETURN delimits the first name and moves the cursor to the line below, 
but the INPUT instruction displays an error message to show that it has not 
received enough data. Both names then have to be re-entered. 

Now make these changes in the program to demonstrate how strings can 
be concatenated (literally ‘chained together’) 


300 greetings$ = welcome$ + surname$ + “” + forename$ 
400 PRINT greeting$ 

RUN 

Enter first-name, second-name ? Ivan,Terrible 

Hello Terrible Ivan 


The assignment statement in line 300 has joined four separate string values 
into one, greeting$. The plus sign is not performing the same operation as in 
anumerical expression, precisely because Basic recognizes the type of data 
involved and performs the appropriate manipulation - concatenation of 
strings, addition of numeric quantities. It would be handy ifa minus sign ina 
string expression had a corresponding effect, but adding something like 
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500 greeting$ = greeting$ — surname$ 
600 PRINT greeting$ 


will simply cause a “Type mismatch" error at line 500. You can concatenate 
strings using the plus sign, but you cannot split them up with the minus sign. 
In the line 


greeting$ = welcome$ + surname$ + “” forename$ 


the item “" is a string constant, or ‘literal’. It contains a single space within 
quotation marks, and was put in to prevent the names running together in the 
output. We could easily have used another literal, as in 


greeting$ = “ Hello” + surname$ + “” + forename$ 


which would have exactly the same effect. The point of using a variable, 
welcome$, is to achieve flexibility. If we later change line 100 to 


100 welcome$ = “ Hi there ” 


we get a new style of greeting without altering line 300 (and any other lines 
where welcome$ might be used). Literals cannot be changed during 
program execution, whereas the contents of string variables are infinitely 
variable: that is what they are there for! 

One use for string concatenation is to find the maximum permitted length - 
meaning the maximum number of characters — of a string, as below. 


100 a$="" 

200 FOR k% = 0 to 9999 
300 PRINT k% 

400 a$=a$+"*” 

500 PRINT a$ 

600 NEXT k% 

700 END 


This program increases the number of characters stored in a$ one by one 
until the system limit is reached, and execution stops with a "String too long” 
error. Notice that in line 100 a$ is given the value “" known as the ‘null’, or 
empty, string. This contains no characters, and has zero length. It is the string 
equivalent of numeric zero. String variables are automatically set to the null 
string by the RUN command, so line 100 is not strictly necessary here. It 
would be necessary, though, if a$ had been used earlier in the program, and 
might thus contain some spurious characters. 

In Amstrad Basic the maximum string length is 255 characters. 

Everything that has been said here about string variables is true for string 
arrays, which are created by the DIM statement, just like numeric arrays 
(see Section 3.2.1). We could rewrite our little greetings program to employ 
a two-dimensional array, as in Listing 5.1. 
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Listing 5.1 String input 





10 REM RRR KKK KKEKKEKEKEKEKKKKKKKKEK 


11 REM ** Listing 5.1 : belied 

12 REM ** STRING INPUT an 

15 REM KEKE KHKHEKKKEKKEKKKKKKKKKKKKKKKKEK 

60 : 

100 REM -- Greeting a Group: 

110 welcome$ = " Hello " 

120 INPUT "How many of you are there "; howmany% 


130 DIM name$ (howmany?, 2) 

140 FOR n% = 1 TO howmany% 

150 PRINT n%;"Enter forename,surname "; 
160 INPUT name$(n%,1l), name$(n%, 2) 

170 NEXT n% 

180 PRINT 

190 : 

200 FOR n%=1 TO howmany$% 

210 greeting$ = welcomeS + name$(n%,2) + name$(n$%,1) 
220 PRINT n%, greeting$ 

230 NEXT n& 


250 END 
How many of you are there ? 4 
1 Enter forename,surname ?Grace,Darling 
2 Enter forename,surname ?Peter,Pan 
3 Enter forename,surname ?Boy,George 
4 Enter forename,surname ?Catherine,the Great 
1 Hello DarlingGrace 
2 Hello PanPeter 
3 Hello GeorgeBoy 
4 Hello the GreatCatherine 


Here we have stored a group of names in the array name$, with the 
forename in the first column and the surname in the second. Each row is used 
for a different person. 


5.2 String functions 


To understand the use of strings you really need to know how Basic stores 
them. Internally they are held as numbers: that is the only kind of data the 
computer can store. So every printable character is allocated a code 
number, called its ASCII code, according to the American Standard Code 
for Information Interchange (see Appendix A) Two predefined functions, 
ASC() and CHR&(), refer specifically to these codes. 


ASC(x$) returns the ASCII code of the first character of the string 
argument (x$). 

CHR$(x) returns the character whose ASCII code is the number given as 
argument (x). 


The following program uses the ASC() function to display the code number 
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of any character you type. (It also uses INKEY$ for single character input, but 


we wil 


1 come to that in Chapter 6.) 
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10 REM 
11 REM 
12 REM 
15 REM 
60 : 
100 RE 
110 ch 
120 WH 
130 
140 
144 
150 
160 
200 EN 


32 
9 
33 
34 
35 
36 
37. 
38 
39 
40 
41 
81 
119 
101 
114 
116 
121 
117 
105 
111 
112 
64 


KRRKKKKKKKKEKKKKKKKKKKKKKKKKKKKEK 


** Listing 5.2): kil 


** ASCII VALUES alte! 
FOI III IO IOI III IK 


M -- Loop till ASCII 0 

ars = wu 

ILE char$ <> CHR$(0) 

char$=INKEYS$ 

IF char$="" THEN GOTO 130 

char% = ASC(char$) 

IF char%<>0 THEN PRINT char%;TAB(8);"is the code for ";char$ 
WEND 

D 


is the code for 
is the code for 
is the code for ! 
is the code for 
is the code for 
is the code for 
is the code for 
is the code for 
is the code for 
is the code for 
is the code for 
is the code for 
is the code for 
is the code for 
is the code for 
is the code for 
is the code for 
is the code for 
is the code for 
is the code for 
is the code for 
is the code for 


VB PN te 


@Vvorcec tho f0~~ 


And this one prints the entire printable character set: 


Listing 5.3 The ASCII character set 


10 REM 
11 REM 








RRKKKKKKKKKKKKKKKKKKKKKKKKKKKEK 
** Listing 5.3 : Sala! 


12 REM ** THE ASCII CHARACTER SET ** 
15 REM KREKKKKKEKEKKKKKKKKKKKKKKKKKKKK 
60 : 

100 REM -- Tabulates ASCII characters: 
110 FOR code% = 32 TO 127 

120 PRINT code%;"-> ";CHRS$(code$%), 
140 NEXT code% 

150 PRINT 


160 EN 


D 
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32 => 33° >. 1 34-=>." 35. <> # 

36 -> $ 37 => & 38 -> & 39 -> * 

40 -> ( 41 -> ) 42 -> * 43 -> + 

44 -> , 45 -> = 46=->>. 47 -> / 

48 -> 0 49 => 1 50 => 2 51 => 3 

52 -> 4 53 -> 5 54 -> 6 55 -> 7 

56 -> 8 57 => 9 5h: => 4 59 =>; 

60 -> < 61 -> = 62>? 63 >-2 

64 -> @ 65 -> A 66 -> B 67 =>. C 

68 -> D 69 -> E 70 -> F TEL >-G 

72 -> 4H 73 -> 1 74 -> 9 75 -> K 

76. => L 77 -> M 78 -> N 79. => 0 

80 -> P 81 ->Q 82 -> R 83 -> Ss 

84 -> T 85 => U 86 -> V 87 -> W 

88 -> X 89 -> Y 90 -> Z 91 -> [ 

92 -> \ 93 -> ] 94 -> * 95 -> _ 

96 -> ~ 97 “> a 98 -> b 99 => ¢ 

100 => 101 ->> e 102 =>) £ 103° =>" ¢ 
104 -> h 105 -> i 106 -> j 107 -> k 
108 -> 1 109 -> m 110 => n lll -> 0 
112 => p 113 -> q 114 -> r 115 => s 
116 -> t LU} => 118 => v 119 -> w 
120 -> x L210 =F °¥ 122° <>-:Z 123. -=>{ 
124 -> | 125 -> } 126 => ~ 127 -> 


The last program starts listing character codes from number 32. The 
reason for this is that codes under 32 have special effects. Appendix A gives 
details of all these ‘control characters’. Printing them is a convenient way of 
sending formatting information to the printer and/or screen. It is a method 
that springs from ASCII's original definition as a teletype code: the codes 
from | to 31 were generated by control keys on the teletype’s keyboard. 


One particular use of CHR$() is for manipulating such unprintable control 
characters, especially "and RETURN. The following example should be 
self-explanatory. 


100 qq$ = chr$(34): cr$ = chr$(13) 

200 line$ = “Insert quotes " + qq$ + cr$ + “and RETURN.” 
300 PRINT line$ 

RUN 

Insert quotes ” 

and RETURN. 


Because strings are stored as numbers, they can be compared using the 
numeric comparison operators (=, <, >, <>, <=, >=). Thus, one character 
is less than another if it has a lower ASCII code. When multi-character strings 
are compared, their first characters are the basis of comparison; if they are 
equal then the second characters are compared, and so on until the last 
character of one or both strings is reached. If they both end together, with no 
difference found, they must be equal; if not, the shorter one comes first (i.e. is 
lesser). This can lead to some odd results, as shown in listing 5.4. 
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Listing 5.4 Comparing strings 


LO REM ERRRRRR KEKE RKREEKKEEKREKKKKRKEK 


11 REM ** Listing 5.4 : bala 

12 REM ** COMPARING STRINGS ae 

15 REM KRHEKKKKKEKKEKKKKKKKKKKKKKKKKKKKEK 

60 : 

100 REM -- Compares character sequences: 

110 stringl$="*"; string2$="!1!1" 

120 WHILE stringlS$<>"" OR string2$<>"" 

125 PRINT 

130 INPUT "Enter first string :",stringl$ 

140 INPUT "Enter setond string:",string2$ 

150 IF stringl$=string2$ THEN PRINT stringl$;" is identical to 
";string2$ 

160 IF stringl$>string2$ THEN PRINT stringl$;" is greater than 
";string2$ 

170 IF stringl$<string2$ THEN PRINT stringl$;" is smaller than 
"sstring2$ 

180 WEND 

190 PRINT 

200 END 











Enter first string :aaaa 
Enter second string;:bb 
aaaa is smaller than bb 


Enter first string :aaaa 
Enter second string:BB 
aaaa is greater than BB 


Enter first string :CAIN 
Enter second string:able 
CAIN is smaller than able 


Enter first string :Cain 
Enter second string:Abel 
Cain is greater than Abel 


Enter first string :99 
Enter second string:1001 
99 is greater than 1001 


Enter first string :wxyz 
Enter second string:abcd 
wxyz is greater than abcd 


Enter first string :stringy 
Enter second string:stringy 
stringy is smaller than stringy 


Enter first string :Zonk 
Enter second string:Bonk 
Zonk is greater than Bonk 


Enter first string :good 
Enter second string:BYE 
good is greater than BYE 


Enter first string : 
Enter second string: 
is identical to 
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In the ‘stringy’ case, for example, the second string has a trailing space, and 
so is greater than the ‘same’ string, without a trailing space. When you are 
cotnparing strings, be sure to strip off leading and trailing spaces if you want 
to get anything like ‘lexicographic’ order (as in a dictionary). Even then, the 
way that the computer stores upper and lower case letters and the ASCII 
values for punctuation marks like space and hyphen can lead to some 
peculiar orderings. 

Strings can be sliced up by using the pre-defined functions LEFT§(), 
RIGHT$() and MID§(). 


LEFT$(a$,n) returns the n leftmost characters of a§. 

RIGHT$(a$,n) _—returns the n rightmost characters of a$. 

MID§$(a$,p,n) returns the n characters from position p in the string a$ 
onwards. 


These functions are frequently used in conjunction with another pre-defined 
function LEN() which returns the length ofits string argument -—1.e. how many 
characters it contains. 

Listing 5.5 demonstrates these four functions in action. 








Listing 5.5 String functions | 
10 REM RHEE EEEKEEEKKKKKKKKKKK 
11 REM ** Listing 5.5 : ies 
12 REM ** STRING FUNCTIONS ae 
15 REM KEKKKKKKKEKEKEKEKREEEEEKERKKKKKEK 
60 : 
100 REM -- Puts built-in string functions through their paces: 
110 PRINT "Enter any string : "; 
120 INPUT "", text$ 
130 : 
140 size%=LEN(text$ ) 
200 PRINT "---- LEFTS ----" 


300 FOR s%=l TO sizes’ 

400 PRINT LEFT$(text$,s%) 
500 NEXT s% 

600 : 

700 PRINT "---- RIGHTS----- * 
800 FOR s%= 1 TO size% 

900 PRINT RIGHTS (text$,s%) 
1000 NEXT s% 

1100 : 

1200 PRINT "----MIDS$----" 
1300 FOR st=l TO size% 

1400 PRINT MIDS(text$,s%,2) 
1500 NEXT s% 

1600 : 

1700 PRINT "----CHUNKS---~" 
1800 FOR s%=l TO sizes 

1900 newtext$=LEFTS (text$,s%)+RIGHTS (text$,s%) 
2000 PRINT newtext$ 

2100 NEXT 

2200 : 

2300 PRINT 

2400 END 
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Enter any string : ALPHABET 
===="LEFTS |==== 
A 

AL 

ALP 

ALPH 

ALPHA 

ALPHAB 

ALPHABE 

ALPHABET 

---- RIGHT$----- 
4 

ET 

BET 

ABET 

HABET 

PHABET 

LPHABET 

ALPHABET 
----MID$---- 


see CHUNKS <<== 
AT 

ALET 

ALPBET 

ALPHABET 
ALPHAHABET 
ALPHABPHABET 
ALPHABELPHABET 
ALPHABETALPHABET 


Now, with the addition to our string-handling repertoire of the function 


INSTR(a$,b$) returns the starting position of the substring b$ in the main 
string a$, or 0 if b$ is not found in a§. 


we can rewrite Listing 5.1 so that first and second names can be entered ina 
more natural manner, with a space between them. The program reads a 
name, splits it into its two components (forename$ and surname$), reverses 


their order and puts the whole lot into upper case. 





: Listing 86 Welcome back 





LO REM 8 II TOTO TOI IO Ik 


11 REM ** Listing 5.6 : =e 
12 REM ** WELCOME BACK baba 
15 REM KKKKKKEKKKEKKKKKKEKKEKEKKKKKKKKKKKEK 
60 : 

100 REM -- First find a gap: 

110 welcome$ = " Hello " 

120 spos%=0 

130 WHILE spos% = 0 
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140 INPUT "Enter Firstname Secondname ", name$ 
150 spos% = INSTR(name$," ") 
160 REM -- finds a blank. 


170 WEND 

180 : 

190 size%=LEN(name$): newname$="" 
200 REM -- Now capitalize newname$: 


210 FOR n=l TO size% 

220 ch$=MIDS (name$,n%,1) 

230 IF ch$>="a" AND ch$<="z" THEN ch$=CHR$(ASC(ch$)-32) 
240 newname$ = newname$ + ch$ 

250 NEXT n%& 

260 : 

270 REM -- Now the output: 

280 forename$=LEFTS (newnameS$,spos?) 

290 surname$=RIGHTS (newname$,size%-spos$) 


300 PRINT welcome$ surname$ ", " forename$ 
310 GOTO 120 

320 REM -- carries on till ESCape. 

330 END 


Enter Firstname Secondname HIPPY HAPPY 
Hello HAPPY, HIPPY 
Enter Firstname Secondname Washington Irving 
Hello IRVING, WASHINGTON 
Enter Firstname Secondname Flamenco Pretty 
Hello PRETTY, FLAMENCO 
Enter Firstname Secondname Sir Clive Sinclair 
Hello CLIVE SINCLAIR, SIR 
Enter Firstname Secondname John Bull Esq. 
Hello BULL ESQ., JOHN 
Enter Firstname Secondname Pretty Flamingo 
Hello FLAMINGO, PRETTY 
Enter Firstname Secondname Go Away 
Hello AWAY, GO 


Notice that newname$ is assigned the null string in line 190. Try deleting 
this statement and then run the program. (When you build a string in a loop, 
always make sure you know what it contains at the beginning of the loop!) 

Finally, there are some additional string functions that we have not so far 
mentioned. 


LOWERS(x$) returns a string the same as x$, but with all alphabetic 
characters converted to lower case. 

STRING$(n,x$) returns a string comprising n copies of x$. 

STR$(n) returns a string representation of the numeric value n. 

UPPER$(x$) returns x$ with all letters converted into upper case 
(CAPITAL letters). 

VAL(x$) returns the numerical value of x$, provided x$ represents a 
number: returns 0 if the first character in x$ is non-numeric. 


STR$() and VAL() are inverses. STR$() takes an ordinary numeric value and 
translates it into a string (as would happen if that number were printed out). 
Thus STR$(37.25) would give the result “ 37.25”. VAL() does the opposite. 
Thus VAL(‘—1985”) would yield the numeric value —1985. As we saw 
earlier, arithmetic operations cannot be applied to strings — even if they look 
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like numbers. Sometimes it is useful to be able to get round this restriction. 
STR$() and VAL() allow you to interconvert freely between numbers and 
digit-strings. 

UPPER$() and LOWERS() are also inverse functions, in a sense. UPPER$() 
places any letters in the string argument into capitals, while LOWER§() puts 
any capital letters into lower case. In Basic “Richard” is not the same string as 
“RICHARD”, and this distinction can sometimes lead to misleading results — 
for example if your program is searching for “CAPS” it will fail to find “Caps”. 
By using one or other of these functions (consistently!) to put all string 
searches into the same case, your programs will perform word-matching 
successfully given any mixture of upper and lower case. 


5.3 Example program [NUMBERS] 


To demonstrate the usefulness of these various string-handling functions, our 
example program involves both strings and numbers. The program 
translates a number given as input into the words, in English, which name 
that number. For instance 7708 becomes SEVENTY-SEVEN THOUSAND 
AND EIGHT. 

It is the sort of facility you might want in a cheque-printing program, and it 
shows that Basic is actually quite a powerful string-handling language. 


| Listing 8.7 Number naming 


10 REM KRAEKKKKKKEKKKKKKKEKKKKKKKKKKKKKEK 

11 REM ** Listing 5.7 : baal 

12 REM ** NUMBER NAMING we 

15 REM KKKKKKKKKKEKKKKKKKKKKKKKKKKKKKK 

604 

100 REM -- Puts Figures into Words: 

110 GOSUB 2000 : REM initialize number names etc. 
120 continues=1l 

125 REM -- Main loop: 

130 WHILE continue% 


140 ok%=0 

150 WHILE ok% = 0 

160 REM -- Input a number: 

170 GOSUB 3000 : REM sets ok%, numb 
180 WEND 


190 REM -- Standardize numb: 
200 GOSUB 4000 

210 REM -- Print it in 3 bites: 
220 FOR bite% = 1 TO bitenum$ 


230 GOSUB 5000 : REM print one chunk. 
240 NEXT bites 

250 WEND 

260 : 


270 PRINT "Bye!";CHRS$(7) 
300 END 
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999 


1000 


1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2120 
2200 
3000 
3010 
3015 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3100 
3110 
4000 
4010 


REM -- Numeral naming data: 

DATA "",ONE ,TEN ,"" 

DATA THOUSAND,TWO ,ELEVEN,"TWENTY " 
DATA MILLION,THREE ,TWELVE ,"THIRTY " 
DATA BILLION,FOUR ,THIRTEEN ,"FORTY " 
DATA FIVE , FOURTEEN ,"FIFTY " 

DATA SIX ,FIFTEEN ,"SIXTY " 

DATA SEVEN ,SIXTEEN ,"SEVENTY " 

DATA EIGHT ,SEVENTEEN ,"EIGHTY " 

DATA NINE ,EIGHTEEN ,"NINETY " 

DATA "NINETEEN " 


REM -- Initialization Routine: 
DIM bite$(5),zero$(2) 
DIM s$(2), bval$(5),unit$(9),teen$(10),tval$(9) 
FOR n%=l TO 9 
IF n%<5 THEN READ bval$(n$%) 
READ unit$(n%),teen$(n%),tval$(n$) 
NEXT n% 
READ teen$(10) 
s$(0)="MINUS": s$(1)="ZERO" 
s$(2)=""s zero$(0)="" 
zero$(1)="00": zero$(2)="0" 
RETURN 


REM -- Input routine: 

ok%=0 

PRINT 

PRINT "Enter an integer" 
PRINT "up to 10 digits long "; 
INPUT numb$ 

n=ABS (VAL (numb$ ) ) 

IF n>1E+10 THEN ok%=0: RETURN 
IF n=INT(n) THEN ok%=1 

numb = VAL(numb$) 

RETURN 


REM -- Standardization routine: 
IF numb <= 999999999 THEN numb$=STRS$(ABS(numb) ) ELSE numb$= 


" "4+numbs 


4020 
4025 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
5000 
5010 
5015 
5020 
5030 
5040 
5050 
5060 


size%=LEN(numb$ )-1 
numb$=RIGHTS (numb$,size$%) 
sign$=s$(SGN(numb)+1) 
IF sign$="ZERO" THEN PRINT sign$: RETURN 
numb$=zero$(size% MOD 3)+numb$ 
size%=LEN(numb$ ) 
FOR p%=l TO size% STEP 3 
bitenum% = INT(p%/3)+1 
bites (bitenum% )=MIDS (numb$, p%, 3) 
NEXT p% 
IF sign$="MINUS" THEN numb$="-"+numb$: continue%=0 
PRINT numb$ : REM for confirmation. 
RETURN 
REM -- Word-printing routine: 
word$=bite$ (bites) 
IF sign$="ZERO" THEN RETURN 
IF word$="000" THEN RETURN 
hundreds%=VAL(LEFTS$ (word$,1) ) 
tens%=VAL (MIDS (word$,2,1) ) 
ones$=VAL (RIGHTS (word$,1) ) 
wordS="""; REM clear for re-building. 
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5070 IF hundreds%<>0 THEN word$=unit$ (hundreds%)+" HUNDRED": IF 
tens%+ones%<>0 THEN wordS=word$+" AND " 

5080 IF tens%=1 THEN word$=word$+teen$(ones%+l) ELSE IF tens%<>0 
THEN word$=word$+tval$(tens$) 

5090 IF ones%<>0 AND tens%<>l THEN word$=wordS+unit$ (ones$) 

5100 IF hundreds%=0 AND bite%=bitenum% AND bitenum%<>1l THEN word 
S="AND "+word$ 

5120 word$=word$+" "+bval$ (bitenum%+l-bite$) 

5150 IF bite%=l1 THEN PRINT sign$ 

5160 PRINT words 

5180 RETURN 

5190 


Ready 
run 


Enter an integer 
up to 10 digits long ? 1 
001 


ONE 


Enter an integer 
up to 10 digits long ? 1234 
001234 


ONE THOUSAND 
TWO HUNDRED AND THIRTY FOUR 


Enter an integer 
up to 10 digits long ? 12.34 


Enter an integer 
up to 10 digits long ? 12345678 
012345678 


TWELVE MILLION 
THREE HUNDRED AND FORTY FIVE THOUSAND 
SIX HUNDRED AND SEVENTY EIGHT 


Enter an integer 
up to 10 digits long ? 123456789 
123456789 


ONE HUNDRED AND TWENTY THREE MILLION 
FOUR HUNDRED AND FIFTY SIX THOUSAND 
SEVEN HUNDRED AND EIGHTY NINE 


Enter an integer 


up to 10 digits long ? 1234567890 
001234567890 


ONE BILLION 

TWO HUNDRED AND THIRTY FOUR MILLION 
FIVE HUNDRED AND SIXTY SEVEN THOUSAND 
EIGHT HUNDRED AND NINETY 


Enter an integer 
up to 10 digits long ? 12345678901 


Enter an integer 
up to 10 digits long ? 7007 
007007 
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SEVEN THOUSAND 
AND SEVEN 





Enter an integer 
up to 10 digits long ? 1986 


001986 


ONE THOUSAND 
NINE HUNDRED AND EIGHTY SIX 


Enter an integer 
up to 10 digits long ? 90000099 
090000099 


NINETY MILLION 
AND NINETY NINE 


Enter an integer 
up to 10 digits long ? 90909 
090909 


NINETY THOUSAND 
NINE HUNDRED AND NINE 


Enter an integer 
up to 10 digits long ? -88 


-088 

MINUS 

EIGHTY EIGHT 
Bye! 

Ready 


The program solves what seems to be a somewhat slippery problem by a 
reductionist method — useful for problem-solving in general. When you are 
faced with a large difficult problem which you cannot quite get your mind 
around, try asmaller simpler version of the problem that you can do, and see 
how solving it helps you analyse the original problem. 

In this case, deciding how to convert numbers up to ten digits long into 
words is too difficult for an on-sight solution, so we split the number into 
groups of three digits — called ‘bites’ here - counting leftwards from the end 
of the number, as you do when you put commas into a number. Each bite is 
simply a number between 000 and 999 followed by the appropriate scaling 
word, such as ‘thousand’ or ‘million’ or (North American) ‘billion’. 

From a partial solution (a routine which can handle numbers from 0 to 999) 
it is a short step to a more general solution, because larger numbers can be 
rendered into words as 


0-999’ BILLION 

‘0-999’ MILLION 

(0-999' THOUSAND 
(AND) '0-999' 


where a billion equals 1E9. So once we can translate the ‘0-999’ we can 
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handle numbers up to 10 digits by applying the routine for 3-digit numbers 
up to four times. (There are other points to attend to, but that is the gist of it.) 

Expressing a three-digit number in words then depends upon isolating 
the Hundreds, Tens and Units in turn, considering special cases - such as 
zero — and using the digits themselves as pointers into string arrays of words. 
These name the digits 1 to 9, the teens 10 to 19, and the tens 20 to 90. The 
scaling words stored are hundred, thousand, million and billion. In addition 
there are the words ‘minus’ and ‘zero’. 

All these words are stored in string arrays, which are filled in the routine 
from line 2000 forwards. You may wonder how they got there. If you have 
never seen READ and DATA statements before (as on lines 1000 to 1100), 
don't worry: they are the first topic of the next chapter. 


5.4 Exercises 


1. Write a program to read in a string of any length, and to return it 
padded or truncated to a given length. For example, if the inputs were 


“Nice.guys.finish.last” 20 

then the output would be 
“Nice.guys.finish.las” 

and if the inputs were 

“Nice.one.Cyril” 20 

then the output would be 
“Nice.one.Cyril...... o 

where the dots represent blank spaces. 


2. Rewrite the above procedure so that a third input indicates whether 
padding spaces should be leading or trailing (i.e. inserted at the front or the 
end of the output string). 


3. Write a subprogram to input any string and return it converted to the 
case of its first letter. For example: 


“Include me out” becomes “INCLUDE ME OUT”, 
“dyslexia Rules -- KO?” becomes “dyslexia rules -- ko ?”. 


4. Write subprograms to simulate the action of LEFT$() and RIGHT$(), 
using only MID$. It may be helpful to know that MID$() can be called with 
only two arguments (not three, as is normal). When it gets only two 
arguments, as in MID$(a$,4), it returns the whole remaining string (a$) from 
the position specified by the second argument (here, 4). 
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5. Write a program to accept a string of any length, and to print out a 
frequency analysis of the characters it contains. How many times does ‘a’ 
appear, how many times does b' appear, how many blanks are there, and so 
on? 

Ina long passage of English text, the most common letters, in descending 
order of frequency, are ETAONIRSH; but the space character occurs even 
more often than ‘e’. 








6. Write a subprogram to simulate the action of INSTR(). When you have 
made that work, enhance it so that the question mark (?) acts as a ‘wild card’. 
That is to say, it matches any character; so that "B?S?” would match "BUSY", 
"BASE", "BOSS', "BUST” and so on. 


7. Rewrite Exercise 5 to report on the frequency of all two-letter 
combinations in the input string. Thus the string “Rewrite Exercise 5” 
contains re, ew, wr, ri, it, te, x... etc. For this purpose, ignore the distinction 
between upper and lower case. Also ignore spaces and punctuation signs. 


6 
Input/output 


COMMUNICATING WITH THE MACHINE 


The whole purpose of computing is input and output. Nobody would go to all 
the expense of buying and running a computer system if in return for your 
input you didn't get some worthwhile output. Everything that intervenes 
between the two processes is simply a means to an end. When you start 
reading computer books and magazines, however, you can miss that truth 
entirely: the impression is created that what really counts is how slick your 
programming is, how quickly your program works, how little space your 
code takes up. This is, of course, the voice of the computer buff speaking, for 
whom the point of coii.puting is computing, period. Questions of worth, point 
and relevance are not considered because they are not asked. We can all 
sympathize with this blinkerec: ..ew — peccavi, peccabo — but most people 
expect something more from their screens or printers than mere intellectual 
stimulation. 

Ideally, all program design should start with the question of input and 
output. What do you want the output to be and how should it be presented? 
And, similarly: in what form is the input to be expected, and how should it be 
interpreted? As we shall see, Amstrad Basic permits a wide range of output 
forms and input methods: one of the arts of programming is choosing the 
techniques appropriate to the particular problem, so that input is obtained 
from the user in a natural and painless way, and the layout of the output is 
pleasant and conducive to understanding. 


6.1 Keyboard input 


The elementary forms of the INPUT instruction have been explained in 
previous chapters; and the example below illustrates some of their strengths 
and weaknesses. 





KEYBOARD INPUT 














Listing 6.1 Input demonstration 





LO REM BERR ERR RRR EKEK KKK KEK 


11 REM ** Listing 6.1 : baal 
12 REM ** INPUT DEMONSTRATION ak 
15 REM KRHKKKKKKKEEKEKEKEEEEKEKEKEKKKEKEK 
60 : 


100 REM -- Plain Vanilla INPUT statements: 
110 INPUT aged 

120 INPUT "NAME ",name$ 

130 INPUT "ADDRESS ",address$ 

140 INPUT "NATIONALITY ",country$ 

150 INPUT "PLACE OF BIRTH ",plob$ 

160 PRINT 

170 PRINT "Hello : ";name$;" aged ";aged 
180 PRINT "You’re ";country$;" born in ";plob$ 
190 PRINT "Now living at " 

200 PRINT address$ 

220 END 


run 
? 38 

NAME Brian MORRIS 

ADDRESS 23, Padua Road 

?Redo from start 

ADDRESS 23 Padua Road 
NATIONALITY British 

PLACE OF BIRTH Beckenham, Kent 
?Redo from start 

PLACE OF BIRTH Kent 


Hello : Brian MORRIS aged 38 
Youre British born in Kent 
Now living at 

23 Padua Road 

Ready 


INPUT is very useful for getting words and numbers from the keyboard. It 
is best accompanied by a prompt string, unless the nature of the expected 
input is made clear to the user in some other way. The trouble with INPUT is 
that it causes a complete halt in processing; and it is also vulnerable to faulty 
input. The former weakness is not relevant here, but the latter is crucial: the 
place of birth as given was "Beckenham, Kent” but this was rejected by the 
computer with a “?Redo from start" message. The comma between 
“Beckenham” and "Kent" acted as a delimiter on the input, whereas it was 
meant as part of the data. Furthermore, in line 110 the expected data is a 
number, but there is nothing to stop the user from entering some 
non-numeric string, in which case the variable aged would be set to zero asa 
result. We can deal with both these problems by making the following 
changes. 








INPUT/OUTPUT | 








Listing 6.2 Input validation | 








LO REM 3 OI TI TRI I I 


11 REM ** Listing 6.2 : ee 
12 REM ** INPUT VALIDATION Ladle 
15 REM KEKKKEKKKKKKEKEKKKEKEKKKKKKKKKKKKEK 
60 : 

100 REM -- Simple Data-checking: 

101 aged=0 


105 WHILE aged<=0 OR aged>120 

110 INPUT aged$ 

12 aged = VAL(aged$) 

115 WEND 

120 INPUT "NAME ",name$ 

130 LINE INPUT “ADDRESS ",address$ 

140 INPUT "NATIONALITY ",country$ 

150 LINE INPUT "PLACE OF BIRTH ",plob$ 
160 PRINT 

170 PRINT "Hello : ";name$;" aged ";aged 
180 PRINT "Youre ";country$;" born in ";plob$ 
190 PRINT "Now living at:" 

200 PRINT address$ 

220 END 


Ready 

run 

? 37 

NAME Richard FORSYTH 

ADDRESS 23, Genoa Road 
NATIONALITY Brit. 

PLACE OF BIRTH London, England. 


Hello : Richard FORSYTH aged 37 
Youre Brit. born in London, England. 
Now living at: 

23, Genoa Road 

Ready 


Here we see the LINE INPUT instruction for the first time, on lines 130 and 
150 so that input to the variables address$ and plob$ may contain leading 
spaces and commas as part of the data. 

The WHILE/WEND loop in lines 105 to 115 is a validation loop (of a sort), 
and is executed until a positive number greater than zero is given as the 
user's age. This illustrates several important points. 


(1) You can check the data for errors even when you do not know exactly 
what the data should be: you can check the range of data, as here; you 
can check its data type, as in a way we do here, since the test on line 
105 will reject any input that does not at least begin with numeric 
characters; you can check its ‘picture’, which we do not do here: the 
picture is a useful COBOL idea meaning the appearance of the data in 
terms of its maximum and minimum number of characters, position of 
decimal point, number of words, leading/trailing zeros, position and 
kind of delimiters, and so forth. 
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(2) This sort of validation cannot guarantee accurate input. The user can 
still lie or make a mistake. But it can help to ensure sensible data. In this 
program, for example, the user cannot get away with entering a 
negative or non-numeric age. 


(3) It is usually easier to input data as a string, validate it as described, and 
then convert it into its intended form: strings are much easier to 
manipulate than numbers for such purposes, mainly due to the 
predefined string functions (described in the last chapter). 


(4) The best validation in the world is no substitute for an informed and 
motivated user. Our example gives no hint of the kind of data expected 
in the aged$ loop, nor any sign of whether the data has been accepted 
or rejected, nor any kind of error message. 


Of these four points, the most important is the fourth. The other three are 
important tactical/technical points, but number four is strategic and it should 
be at the heart ofany program design. If your input and output methods make 
life easy and pleasant for the user, then he or she will make life easier for you: 
errors will be less frequent and less complicated to trap and handle; 
program usage will improve and expand. It should not be necessary really to 
make this point, not when computers are nearly 40 years old and 
microcomputers have celebrated their tenth birthday, not when ergonomics 
and industrial design are venerable scientific disciplines, but bad design 
seems destined to survive us all. We should live so long! 


6.2 READ, DATA and RESTORE 


The READ and DATA statements are so convenient that we sneaked them 
into the example program of Chapter 5. Now it is time to explain how they 
work. 

READ is used to assign to a list of variables the values obtained from one or 
more DATA statements. Neither statement can be used alone without the 
other. READ causes the variables listed to be given, in order, the next 
available data items from the collection of DATA statements. Program lines 
which begin with the word DATA are storage areas within the program, and 
as such are ignored by the Basic interpreter — rather like REM lines. In effect, 
they form an unnamed array. When a READ is encountered, this data area 
supplies the next available number or string. If the program attempts to read 
beyond the end of the data, it is halted with a "DATA exhausted” message. 

It is important to realize that all the DATA statements in a program, taken 
together, constitute one long stream of data. When a READ needs a new 
value, the next item is taken from this stream. So it is the order, not the exact 
position, of items in DATA statements that matters. 
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The location of DATA statements is arbitrary so long as they occur in the 
correct order: a common practice is to collect them all together and place 
them just before the END. (If execution reaches a DATA statement, nothing 
happens: control passes on to the next program line.) 

A READ statement takes the form 


READ list 


where llst' is a sequence of variables or array elements separated by 
commas. A DATA statement takes the form 


DATA list 


where the list is a sequence of constants (not variables or general 
expressions) separated by commas. It is clearly neater to write 


100 DIM m$(12),days(12) 

120 FOR m%= 1 TO 12 

140 READ m$(m% ),days(m%) 

160 NEXT 

200 DATA January,31,February,28,March,31 

220 DATA April,30,May,31,June,30 

240 DATA July,31,August,31,September,30 

260 DATA October,31,November,30,December,31 


than to spell out twenty-four assignments such as 


100 LET m$(1)=“January” : days(1) = 31 
110 LET m$(2)=“February” : days(2) = 28 


... and so on. (It is also quicker.) 

Note that the type of READ variable, numeric or string, determines what 
kind of DATA item Basic expects to find. String data does not have to be in 
quotes, unless it contains commas or trailing spaces; and numeric constants 
can be read into string variables (as characters). But numeric variables 
should not be made to accept string data: try changing the last 31 on line 260 
to “THIRTY-ONE" if you want to see what happens when you create a type 
mismatch. 

A third instruction, RESTORE, gives the READ/DATA pair greater 
versatility. Its form is 


RESTORE [linenumber] 


where the ‘linenumber is optional. The effect is to set Basic's internal pointer, 
which keeps track of which DATA item to READ next, back to the start of the 
data stream (if no line number is specified) or to a particular line (if one is 
given). Thus 


RESTORE 
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re-sets the data pointer to the very beginning, while 
RESTORE 5500 


re-sets it to start scanning from line 5500 of the program onwards. This is 
useful if you want to break up the DATA into chunks and read different 
chunks in different circumstances. Some Basics allow the linenumber to be 
specified by an arithmetic expression, but in Locomotive Basic it must be a 
constant. 

Listing 6.3, below relies on READ and DATA statements to perform a kind 
of screening process. Its framework is quite general: it matches data objects 
against specified criteria, and keeps those objects that pass the tests. But for 
our example we have particularized it to deal with party invitations. 











| Listing 6.3 Party invitations ] 
10 REM REKEKEKEKKKEEKKEKKEKKEKKKKKKKKKKEK 

11 REM ** Listing 6.3 : ae 

12 REM ** PARTY INVITATIONS belied 

15 REM RAKE KKEKKKKKKKKKK 

60 : 

100 REM -- General-purpose Data Matching Program: 


110 PRINT "Guest-processing Program:" 
120 DIM proplist$(20) 

130 zz$="****" ; REM stop-code 

140 PRINT 

150 REM -- Main Line: 

160 GOSUB 3000 : REM read in criteria 
170 GOSUB 4000 : REM perform matching 
200 PRINT "Bye for now!" 


220 END 
999 : 
1000 REM -- Socialite Database: 


1001 REM -- First the people: 

1010 DATA Jessica 

1020 DATA rich, jogs,under35,owns pony 

1030 DATA Frances 

1040 DATA under35,handsome 

1050 DATA Jane 

1060 DATA celebrity, jogs 

1070 DATA Kate 

1080 DATA rich,megastar,owns mercedes,owns land 
1090 DATA Jo 

1100 DATA handsome,celebrity,under35,hair dark 
1110 DATA Anna 

1120 DATA hair dark,megastar 

1130 DATA Suzy 

1140 DATA hair fair,under35,dumb 

1150 DATA Mary 

1160 DATA snobbish, poor,handsome, under35 

1170 DATA Eleanor 

1180 DATA hair dark,owns aircraft, jogs,under35 
1190 DATA Sara 

1200 DATA rich,handsome,under35,megastar 

1210 DATA Emma 

1220 DATA poor,dumb 

1230 DATA Joan 
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1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 


DATA celebrity,rich 
DATA Pauline 
DATA handsome,under35,owns winebar, jogs 
DATA Annalise 
DATA rich, jogs,ugly,under35 
DATA Lynette 
DATA hair fair,dumb,owns mercedes,under35 
DATA Jasmine 
DATA hair dark,handsome 
DATA Cynthia 
DATA snobbish,rich,hair dark,celebrity 
DATA Eddy 
DATA under35,male,handsome 
DATA Ivan 
DATA male,handsome,hair dark,megatsar 
DATA Carl 
DATA dumb,rich 
DATA Richard 
DATA male,dumb, poor, jogs 
DATA Joel 
DATA male,hair fair,under35 
DATA Fredrick 
DATA megastar,male,ugly,snobbish 
DATA William 
DATA male,under35,owns land,rich 
DATA Eric 
DATA male,handsome,rich,ugly 
DATA Andy 
DATA male,owns mercedes,rich,owns land 
DATA Paul 
DATA male,megastar,handsome, poor 
DATA Alan 
DATA male,hair dark,under35,celebrity 
DATA Maurice 
DATA male,dumb,rich,jogs,owns land 
DATA Sven 
DATA male,evil,megastar,snobbish 
DATA Mike 
DATA male,poor,handsome,celebrity 
DATA Charles 
DATA male,rich,snobbish,celebrity,owns land,hair dark,ugly 
DATA Neen 
REM -- Now the criteria: 
DATA FAILURE, poor,male 
DATA FAILURE, poor,NOT handsome 
DATA FAILURE, dumb,NOT hair fair 
DATA FAILURE, male, jogs 
DATA SUCCESS, handsome,NOT male 
DATA SUCCESS, rich,celebrity 
DATA SUCCESS, megastar 
DATA SUCCESS, under35,owns land,NOT ugly,NOT dumb 
DATA keke 
REM -- end-of-data signal. 
REM -- Criterion input routine: 
DIM criteria$ (40) 
RESTORE 2000 
READ a$ : c%=0 
WHILE a$ <> zz$ 
ct=c$+1 
criteria$(c%)=a$ 
READ a$ 
WEND 
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3090 
3100 
3110 
3120 
4000 
4010 
4020 
4030 
4035 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4400 
4410 
4420 
4430 
4440 
4444 
4450 
4470 
4480 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5220 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
6000 
6010 


PRINT c%;"items in criterion list." 
criteriat=c% 
RETURN 


REM -- Matching routine: 

RESTORE 

READ name$ 

IF name$=zz$ THEN RETURN 

selected%=0 

WHILE ASC(name$)<=ASC("Z") AND ASC(name$)>=ASC("A") 


GOSUB 4400 : REM read attributes 
suitable%=0 
GOSUB 5000 : REM match attributes 
IF suitable%>0 THEN GOSUB 6000 : REM do something with it 
name$=item$ : REM next name 
WEND 
PRINT selected%;"successful candidates." 
RETURN 
REM -- Routine to get attributes: 
READ item$: features%=0 


WHILE item$<>zz$ AND ASC(item$ )>=ASC("a") 
featurest=features%+l 
proplist$(features%)=item$ 
READ item$ 
WEND 

RETURN 


REM -- Single-match routine: 
c%=0 : suitable%=0 
WHILE c%<criteria%’ AND suitable%=0 


ct=c$t1 
cS=criteria$(c%) 
crit$="a" 
mismatch%=0 
REM -- now loop through tests: 
WHILE ASC(crit$)>ASC("Z") 
ct=c3+1 
critS$=criteria$(c%) 
negativet=INSTR(crit$,"NOT") 
IF negative% THEN crit$=MIDS$(crit$,5) 
GOSUB 5500 : REM test all attributes 
IF c%>=criteriat’ THEN crit$="AA" 
WEND 
IF c$="SUCCESS" AND mismatch%=0 THEN suitable%=1 
IF c$="FAILURE" AND mismatch%=0 THEN suitable%=-1 
IF c%<criteria%’ THEN c%=c%-1 
WEND 
RETURN 
REM -- Routine to test one criterion against all properties: 
IF crit$="SUCCESS" OR crit$="FAILURE" THEN RETURN 
hits%=0 
FOR a%=l TO features 


IF crit$=proplist$(a%) THEN hits%=hits%+l 

NEXT a% 
IF hits%=0 AND negative%=0 THEN mismatch%=mismatch$+l 
IF hits%>0 AND negative%>0 THEN mismatch%=mismatch$+l 
RETURN 
REM -- mismatches if "NOT xx" found or "xx" not found. 
REM -- Routine to process the selected candidate: 
PRINT #8: selected%=selected$+1 
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6020 PRINT #8, "Dear ";name$ 

6030 PRINT #8 

6040 PRINT #8, "| I would like to invite you to my party" 

6050 PRINT #8, "on the 3lst of Octember in Zilog Hills," 

6060 PRINT #8, "because you are so utterly:" 

6070 FOR a%=l1 TO features 

6080 PRINT #8, proplist$(a%) 

6090 NEXT 

6100 PRINT#8: PRINT #8, "See you there!" 

6110 PRINT #8: RETURN 

6120 REM -- This routine is the one to be customized for other 
applications. 

6130 


Dear Frances 


‘I would like to invite you to my party 
on the 3lst of Octember in Zilog Hills, 
because you are so utterly: 
under35 
handsome 


See you there! 


Dear Kate 


I would like to invite you to my party 
on the 3lst of Octember in Zilog Hills, 
because you are so utterly: 
rich 
megastar 
owns mercedes 
owns land 


See you there! 


Dear Jo 


I would like to invite you to my party 
on the 3lst of Octember in Zilog Hills, 
because you are so utterly: 
handsome 
celebrity 
under35 
hair dark 


See you there! 


Dear Anna 


I would like to invite you to my party 
jon the 3lst of Octember in Zilog Hills, 
because you are so utterly: 
hair dark 
megastar 


See you there! 
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Dear Mary 


I would like to invite you to my party 
on the 3lst of Octember in Zilog Hills, 
because you are so utterly: 
snobbish 
poor 
handsome 
under35 


See you there! 


Dear Sara 


I would like to invite you to my party 
on the 3lst of Octember in Zilog Hills, 
because you are so utterly: 
rich 
handsome 
under35 
megastar 


See you there! 


Dear Joan 


I would like to invite you to my party 
on the 3lst of Octember in Zilog Hills, 
because you are so utterly: 
celebrity 
rich 


See you there! 


Dear Pauline 


I would like to invite you to my party 
on the 3lst of Octember in Zilog Hills, 
because you are so utterly: 
handsome 
under35 
owns winebar 


jogs 


See you there! 


Dear Jasmine 

I would like to invite you to my party 
on the 3lst of Octember in Zilog Hills, 
because you are so utterly: 
hair dark 
handsome 


See you there! 


Dear Cynthia 


I would like to invite you to my party 
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on the 3lst of Octember in Zilog Hills, 
because you are so utterly: 

snobbish 

rich 

hair dark 

celebrity 


See you there! 


Dear Fredrick 


I would like to invite you to my party 
on the 3lst of Octember in Zilog Hills, 
because you are so utterly: 
megastar 
male 
ugly 
snobbish 


See you there! 


Dear William 


I would like to invite you to my party 
on the 3lst of Octember in Zilog Hills, 
because you are so utterly: 
male 
under35 
owns land 
rich 


See you there! 


Dear Sven 


I would like to invite you to my party 
on the 3lst of Octember in Zilog Hills, 
because you are so utterly: 
male 
evil 
megastar 
snobbish 


See you there! 


Dear Charles 


I would like to invite you to my party 
on the 3lst of Octember in Zilog Hills, 
because you are so utterly: 
male 
rich 
snobbish 
celebrity 
owns land 
hair dark 


ugly 


See you there! 
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The setting is that Jake and Candice Yupwards plan to throw ajet-set party 
to announce their arrival in Beverly Hills. Naturally they only want to invite 
‘suitable’ guests. The problem is to decide who is suitable. After much 
heated debate, they agree that this vetting process should be settled 
objectively — with the help of their personal computer. 

Candice enters the data on their friends and acquaintances (lines 1000 to 
1800) in terms of such vital characteristics as whether they jog regularly 
(‘jogs’), whether they own a winebar (“owns winebar”) and suchlike. 
Meanwhile Jake formalizes their criteria of social acceptability (in line 2000 
forwards). These criteria are stated in terms of what sort of people to reject 
out of hand (preceded by “FAILURE"), and what sort of people to invite 
(preceded by “SUCCESS"). 

Two examples should give you the flavour of the acceptance/rejection 
specifications. The line 


2020 DATA FAILURE, poor,NOT handsome 


means that any person with attribute “poor” who also lacks the attribute 
“handsome’ will be rejected without further ado. On the other hand the line 


2080 DATA SUCCESS, under35,owns land,NOT ugly,NOT dumb 


can be interpreted as stating that anyone who is under 35, owns land, is not 
ugly and is not dumb should be invited. 

To be technical, the items within a SUCCESS or FAILURE test are 
‘conjunctive’ (they are ANDed, so all must be true); while the test themselves 
are ‘disjunctive’ (they are ORed and the first one to succeed determines the 
result). The NOT operator is provided to invert any particular attribute, as in 
"NOT male" for instance. Thus the essential Boolean operators of NOT, AND 
and OR are all provided, though in an unconventional manner. Because the 
criteria are tested sequentially, re-ordering can make a difference. For 
example, Jake has decided that all megastars deserve an invitation, but also 
that male joggers should be excluded (since they will bore the assembled 
company by talking about groin strains and knee injuries). However, since 
the male-jogger test on line 2040 comes before the megastar test on line 
2070, a male megastar who jogs will be excluded. A more sophisticated 
version of this program would detect such conflicts and inform the user about 
them. 

(Ivan fails to receive an invitation, by the way, because he is a Mega-Tsar, 
not a megastar. ) 

This is a rather frivolous example, but the program itself is a useful 
general-purpose pattern-matcher. Since conditional pattern-matching is at 
the heart of 99% ofall large Artificial Intelligence systems we could claim that 
we are now doing Artificial Intelligence programming in good old 
Locomotive Basic. (But we won't.) 
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Once you have grasped the format of the ‘facts’ (data about persons) and 
the ‘rules’ (data about criterion tests) you can have some fun adapting it to 
other domains, such as purchasing decisions. But first try adding and altering 
a few of the tests, on lines 2000 onwards. 

The subroutine that needs to be customized for different applications is 
the one starting on line 6000. Here it prints a stylized invitation to the Name$ 
selected, but it could not do anything with it. Note incidentally that this 
routine, aS written, introduces a new form of the PRINT statement, ie. 
PRINT#8... (e.g. on line 6030). The hash-sign followed by a channel or 
‘stream’ number is used to direct output to a particular device. In Amstrad 
Basic channel 8 always refers to the printer, so this is the way of getting 
printed output, as distinct from output displayed on the screen. We consider 
channel numbers further in the next two sections. 


6.3 Formatted output 


The ordinary PRINT statement is satisfactory when you just want the results 
and are not too worried about their appearance: it removes from the 
programmer the burden of deciding exactly how the output should look. 
Eventually, however, a situation will arise where you want to control 
precisely which characters should appear in what position on each output 
line —just how many digits should be printed after a decimal point, and so on. 

You can go some way towards formatted output with the aid of TAB and 
SPC, which are pseudo-functions that can be inserted into a PRINT list. TAB 
tabs across to a particular position on the output line, while SPC generates a 
given number of spaces. For example, 


PRINT TAB(7);“Value of a is”;SPC(7);a 


prints the phrase “Value of a is” at character-position 7 on the line and the 
value of the expression a itself seven spaces later — starting at tab-position 26, 
in fact. But for complete control, you need the PRINT USING instruction. 

The PRINT USING statement lets the format of an output line be governed 
by an image of that line in the program. Its format is 


PRINT [#chan,] USING form; list 


where ‘chan’ is the channel to which the output is directed (0 or absent for the 
screen, 8 for the printer), ‘form’ is a format specification, and the 'list' is a list of 
expressions to be printed. The list can contain numeric and character 
values, separated by commas and/or spaces, as in the normal PRINT 
instruction. 

The format specifier is a string. Most of its characters will be printed as 
they stand, but some of them, including the hash-sign (#) and the ampersand 
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(&) have special significance. They are used to described ‘fields’ in the 
output. The following revision of a short program from Chapter 4 shows a 
simple format string composed of two numeric field specifiers. 





Listing 6.4 PRINT USING with numbers 





10 REM KKKKKKKKKEKKKEKEKKEKKKKKEKKKKKKKKKEK 


11 REM ** Listing 6.4 : ae 

12 REM ** PRINT USING WITH NUMBERS ** 

15 REM KEKKKKKKKKEKEKKEKKKKKKKKKKKKKKKE 

Sex 

55 DEF FNroundup(numb,dplaces$)=INT(numb*10*dplaces$+0.5)/10*dp1l 
aces% 


60 : 

75 formS="_ ## HH HHHHHHE HEED 

100 PRINT " No. of Dec. Rounded Value" 

110 PRINT " Places of e" 

115 e = EXP(1) : REM base of natural logarithms 


120 FOR n%=0 TO 10 

130 PRINT USING formS; n%,FNroundup(e,n$%) 
140 NEXT n% 

150 PRINT 

160 END 


No. of Dec. Rounded Value 
Places ofe 
3.0000000000 
2.7000000000 
2.7200000000 
2.7180000000 
2.7183000000 
2.7182800000 
2.7182820000 
2.7182818000 
2.7182818300 
2.7182818300 
2.7182818300 


CUMDINHDUSPWNFrO 


we 


Notice that the same value appears whether printed with 8, 9 or 10 decimal 
places. This is because Basic cannot represent floating-point numbers with 
more than nine significant figures. 


6.3.1 Numeric field specifications 


Numeric fields in the image act as templates for the format of numeric 
expressions in the output list. They employ the hash sign (#), the decimal 
point (.) and the up-arrow in groups offour(A A A A). Each hash sign stands 
for a digit; the decimal point indicates the position of the decimal point, ifany; 
and the four up-arrows, if present, reserve space for an exponent field — 
which always takes four character positions. Thus the value of 123.456 would 
be printed in the various ways shown below with the following different field 
specifications. 
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| Template Output 





###F 123 
HHH HEE 123.456 
HEFEANANA A 12.35E+01 





Notice that automatic rounding (up or down as required) takes place and 
that numbers are justified to the right. Trailing zeros are added if necessary 
so that there are as many digits after the decimal point as hash signs in the 
image field. 

An extra hash sign will be required to reserve space for the minus sign if 
the quantity output is negative. If insufficient space is reserved for a number, 
a percent sign (%) is printed as a warning in the first position and the 
field widened to accommodate it (thus throwing the formatting out of 
alignment). 

Ifa numeric field is prefixed by two or more asterisks (**) then the number 
is printed with leading asterisks filling any unused positions. This is intended 
for cases where a number must be protected so that additional digits cannot 
be added at the front later (e.g. for cheques). A solitary asterisk is treated as 
a printing character. Numbers output in this mode should not have an 
exponent. 

If a field begins with two or more pound signs (££) or two or more dollar 
signs ($$) the number is preceded on output by a ‘floating’ currency symbol. 
No spaces are left between the currency sign and the number. Thus the field 
$$##.## would cause 123.456 to appear as $123.46 and 1.23456 to be 
printed as $1.23. An isolated dollar or pound sign is treated as a printing 
character. Numbers with floating currency symbols may not contain an 
exponent specification. 

A single comma (,) placed just before the decimal point specifies that 
digits to the left of the decimal point are to be grouped in threes, for 
thousands. Thus (putting these various facilities together) the template 
***HHHHHH ## with the number 123456.789 would cause *$123,456.79 to 
appear. 


6.3.2 String field specifications 


Strings may also appear in the output list ofa PRINT USING statement. If they 
do they should correspond, reading left to right, with a string field 
specification. These are composed with three special characters. 

The exclamation mark (!) specifies that only the first character of the string 
is to be printed. 

A pair of back-slashes enclosing zero or more spaces (\ \) specifies that 
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only the first n characters of the string are to appear, where n is the 
number of spaces inside the back-slashes plus 2. Strings that are shorter 
than n characters are left-justified within the field — i.e. padded with trailing 
blanks. f 

An ampersand (&) indicates that the whole string is to be printed ‘as is, 
neither truncated nor padded to fit a fixed field width. 

No format template for a string may exceed 255 characters in length. 

Thus the following lines 


2000 form$ = “THIS \ \ IS! &MAT \ \FICATION” 
2020 PRINT USING form$; “FIELDS”,“ARE”,“FOR”,“SPECIES THAT GRAZE” 


would produce 
THIS FIELD IS A FORMAT SPECIFICATION 


as output. 


6.4 Scanning the keyboard 


Earlier in this chapter INPUT was criticized for causing a pause in program 
execution and for being vulnerable to faulty data — the latter being a 
consequence of the former. Your program cannot do anything about what is 
being typed in response to the INPUT prompt until RETURN is pressed, by 
which time it may be too late. The alternatives are the INKEY and INKEY$ 
functions, both of which return the result of single keypresses and, therefore, 
do not require RETURN as the input delimiter. 

The function INKEY(n), where n is an integer expression, interrogates the 
keyboard to report which Keys are being pressed. The keyboard is scanned 
fifty times a second. The example below 


10 PRINT “Hit the Space Bar please.” 

20 IF INKEY(47) = —1 THEN GOTO 20 

30 PRINT “You pressed the Space Bar, at last.” 
40 CLEAR INPUT 


detects when the space bar is depressed, then prints a message and ends 
the program. The CLEAR INPUT instruction is used to flush out any 
remaining characters that the operating system is holding in the ‘input 
buffer’, a kind of queue for input that allows you to type ahead of the program, 
if you can go that fast. 

INKEY(n) responds in the following way to the status of key number n. 
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INKEY value SHIFT CONTROL Specified key | 





-l - - UP 

0 UP UP DOWN 
32 DOWN _ UP DOWN 
128 UP DOWN DOWN 
160 DOWN DOWN DOWN 





Thus you can test for joint presses ofa key and the SHIFT or CONTROL keys. 

The numbers used to identify keys in the INKEY() function are hard to 
remember (they do not correspond to the ASCII code), but fortunately they 
are embossed on the side of the machine, above the disc drive - at least on 
the CPC 6128. 

The INKEY$ function is the string version of the keyboard scanner. It 
works rather differently from INKEY(). It returns a one-character string, 
reflecting the key that is currently being pressed. If no key is pressed, the 
null string “" is returned. We actually used it in Listing 5.2. 

INKEY$ requires no argument, and is often used in an implied loop, as 
below 


40 k$=INKEYS$ : IF k$=“" THEN GOTO 40 


so that it waits till a key is pressed. In certain applications, however, there is 
no need to wait. Ina video game, for instance, the main program can scan the 
keys to see what the user is doing, and if he or she is doing nothing, it can get 
on with moving spacecraft or hungry monsters around the screen. This 
provides a degree of ‘real-time’ capability on your humble home computer. 


6.5 MENUS and COMMANDS 


Conversational computing (which is what Basic is good at, and the reason 
people put up with Basic's many faults) is all about communication between 
man and machine. Up to now all our programs have communicated with the 
user in a question-and-answer fashion. This is a rather ad hoc style of 
interacting with the user, but it is possible to put the interaction within a more 
coherent framework. 

It is usual to characterize interactive programs as either menu-driven or 
command-driven, which, in the extreme case, means that whenever the user 
has a choice of options either you tell him/her what they are, or you don't! 
Either you present a nice numbered list of options on the screen (the ‘menu’) 
and wait for the user to choose, or you let the program continue whatever it is 
doing until the user hits some sort of command key. It is rather like the 
difference between INPUT and INKEY(). 
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Of course programs are rarely one type or the other: a common approach 
is to display a menu at the start of a process, then execute the process until a 
command key is pressed. If there are lots of command keys then one of them 
may be set aside for calling up the menu again: it is a good idea to provide 
such a ‘Help’ command in complicated programs, and always use the same 
keystrokes for accessing it - CONTROWH for example, or f0, something 
easily remembered. 

Often the choice between menus and commands is dictated by the nature 
of the process. If there are things like alien battle-cruisers zooming around 
on the screen, or lots of information to be displayed, a menu is probably a 
nuisance; if the display is static or easily reconstructed then a menu is not 
much trouble. Another criterion — surely the main one ~ is usability: simple 
processes or expert users imply a command-driven approach, while 
complex options or untrained users demand plenty of help. 

There are almost as many variations on these twin themes as there are 
programs. A notably subtle example is the popular word-processing system, 
WordStar, which has a blend of the two approaches. Most of the commands 
in WordStar require at least two keypresses in sequence; if you can 
remember them then you can treat the program as entirely command- 
driven. On the other hand, you can choose to have a Help menu occupying 
part of the screen at all times, and, in addition to that, if you make an initial 
command keypress and then pause, the Help menu changes to show you 
what your second keystroke options are. Menus lead to menus, and extra 
help can usually be requested. Some deep thought went into the program's 
‘user Image’. And, as you might expect, a lot of experienced users call it 
‘fiddly’, while many beginners find it bewildering. There are no right 
answers, in computing asin life, and fair is just what blond-haired people are. 

Let us swallow some of our own medicine and begin the development ofa 
menu-based data entry program, where the input is essentially a form-filling 
exercise. 





Listing 6.5 Screen-based form-filling 





10 REM KEKKKKEKKEKKKKKKKKKKKKKKKKKKKK KKK 


11 REM ** Listing 6.5 : a 


12 REM ** SCREEN-BASED FORM-FILLING ** 
D5 REM 8 IR I ITO IOI IOI IOI IO 


AO. 
60 MODE 2: BORDER 23 
100 REM -- Generalized Menu-program: 


110 GOSUB 1000 : REM initialization 
120 FOR r%=1 TO recs% 

130 GOSUB 2000 : REM get record 
140 NEXT 

150 PRINT: PRINT "Bye!" 

160 END 
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170 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

660 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
2000 
2010 
2020 
2025 
2030 
2040 
2050 
2060 
2065 
2070 
2080 
2100 
2120 
2500 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
3000 
3020 
3030 
3040 
3050 
3060 
3080 
3090 
4000 
4010 
4020 
4030 
4035 
4040 
4050 
4052 
4055 
4060 


: 


REM -- Data section: 

DATA 4,10 
DATA FORENAME, C,2,2,16 

DATA SURNAME, C,2,4,17 
DATA YEARS-OLD, N,33,4,4 
DATA COMPANY, C,2,6,25 
DATA ADDRESS, C,2,7,25 

DATA TOWN, C,2,8,28 
DATA COUNTRY, C,2,9,25 

DATA POSTCODE, C,2,10,10 
DATA NATIONALITY, C,2,12,16 
DATA PLACE-OF-BIRTH, C,33,12,16 
REM -- Initialization routine: 
READ recs%, nfields$% 

DIM db$(recs%,nfields$) 
padding$=STRINGS$(80," ") 
dots$=STRINGS (80,".") 

RETURN 


REM -- Menu-based input routine: 
RESTORE 520 
CLS: GOSUB 2500 : REM draw box 
RESTORE 520 : REM re-read box labels 
PRINT TAB(12);"Record : ";r%; 
FOR f%=l TO nfields$% 

GOSUB 3000 : REM move to line 


GOSUB 4000 : REM get & test data 
IF ok%=0 THEN GOTO 2060 : REM re-try 
dbS (r%,f£%) = items 
NEXT £% 
RETURN 
REM -- Screen-setting routine: 


FOR sf%=l TO nfields% 
READ tagname$, type$,h%,v%,size% 
aS=LEFTS (dots$,size%) 


LOCATE h%,v% 

PRINT tagname$;SPC(1);d$ 

NEXT sf% 
LOCATE 1,1 : REM back to top left. 
RETURN 


REM -- now data needs to be RESTOREd. 


REM -- Single-tag display routine: 
READ tagname$, type$, h%,v%,size% 
dS=LEFTS (dots$,size%) 


LOCATE h%,v% 
PRINT tagname$;SPC(1) ;d$ 
LOCATE h$+1+LEN(tagname$),v% 
RETURN 
REM -- Single data-entry routine: 
itemS$=" " 
st=0 : ok%=1 
WHILE s%<size% AND ok%=1 
st=s%+1 
ch$=INKEYS$: IF ch$="" THEN GOTO 4040 
oks=1 


IF ch$=CHR$(127) THEN ok%=0: GOTO 4100 : REM erase line 
IF ch$=CHR$(13) THEN s%=size%: GOTO 4100 
IF typeS="N" AND (ch$>"9" OR ch$<"0") THEN ok%=0 
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4070 IF ok%=0 AND ch$="-" AND s%=1 THEN ok%=1 

4080 IF ok$=0 THEN PRINT CHRS$(7); ELSE item$=item$+ch$ 

4090 PRINT ch$; 

4100 WEND 

4105 CLEAR INPUT 

4110 item$=LEFTS (item$+tpadding$,size%) 

4112 IF VAL(item$)=0 AND typeS="N" AND LEFT$(item$,1)<>"0" THEN 
ok%=0 

4115 IF ok%=0 THEN LOCATE h%+1+LEN(tagname$),v%: PRINT d$;: LOCA 
TE h%+1+LEN(tagname$ ),v% 

4120 RETURN 

4130 : 

This program takes our input demonstration of Listing 6.2 considerably 
further. In fact it goes a long way towards the input section of a fully-fledged 
database program. Its aim is to let the user enter data about individuals 
(FORENAME, SURNAME and so on) by filling in a form on the screen. 

Line 60 simply sets up an 80-character screen mode and paints the 
surrounding border a pale cyan colour. We will deal more fully with MODE 
and BORDER in Chapter 8. 

The shape of the form itself is defined by DATA statements in lines 500 to 
660. This gives considerable flexibility: if you do not like the layout, or want 
an extra field or two, then simply alter the DATA statements. Line 510 states 
that there are 4 records, each consisting of 10 items. Lines 520 onwards 
define the items. For instance, line 550 says that the COMPANY field is for 
character data (C), and should be placed two positions in from the left 
margin and six lines down from the top of the screen. The response given by 
the user should not have more than 25 characters. Thus each piece of 
information has its own, labelled, slot on the screen. They can be placed 
independently, as long as they do not over-write each other. 

The main routine is on line 2000 forwards. It calls subroutine 3000, which 
displays the field name ready for input, and subroutine 4000 which gets the 
date using INKEY$ on line 4040 and performs several validation checks. For 
instance, numeric fields must consist of digit characters, possibly preceded 
by a minus sign. 

The kind of output generated by running this program is illustrated below. 


E Output from Listing 6.5 —_ - —s 


Record : 1 
FORENAME Richard S..........csssessseeeeee 





SURNAME Forsyth .......cccccsesesssesesesesees YEARS-OLD 999. 
COMPANY Human Race .........eeeseeseeseneeees 

ADDRESS 23, Genoa Road .......cceeeeseeeeeees 

TOWN Edgeville.......ccscessesseseeeeeees 

COUNTRY Airstrip TWO ou... ccscsestseeeeeeeeeeees 

POSTCODE ZIP9999... 


NATIONALITY European ..........ssse0 PLACE-OF-BIRTH EARTH..........ssssssssesersees 
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The dots following each field-name give a visual indication of the length of 
that field. The DELete key can be used, under program control, to correct 
mistakes by going back to the start of the field. 

A few more sophisticated facilities, such as being able to scroll around the 
screen at will (using the cursor keys) would turn this into a respectable 
database front-end. Some readers may care to take up the challenge. 


6.6 Example program [XSYS] 


The example program for this chapter takes some of the ideas in Listing 6.3 
(pattern matcher) a step further and allows us to progress towards a simple 
Expert System. A good deal of mystique surrounds the subject of expert 
systems; but — looked at from sufficiently far away - any expert system is 
likely to be a program for ‘structured selection’. That is to say, there will bea 
list of ‘hypotheses’ or ‘theories’ concerning the state of the world or the right 
action to take and a set of ‘evidence’ bearing upon the hypotheses. The task 
of the program is to match the evidence against the hypotheses and identify 
the best or most likely one, or at least to help its user to do so. 

In a medical context (and medicine has proved a happy hunting ground 
for expert systems builders) the hypotheses might be disease diagnoses and 
the evidence would be patient symptoms. In a geological context (an even 
more profitable hunting ground) hypotheses might include whether the rock 
was gas-bearing or oil-bearing and the evidence would come from the 
various measures logged by a borehole probe. 

The problem of structured selection, at the heart of most expert systems, 
boils down to a decision about which hypotheses are best and worst 
supported by the available evidence. 


Medical example 

Evidence: Fever, Spots, Headache, Sore-throat, Belly-ache, 
Dizziness, Loss-of-appetite, Vomiting... 

Hypotheses: Tuberculosis, Chicken-pox, Arthritis, Influenza, 
Duodenal-ulcer, Gastric-cancer, Black-death... 


Geological example 

Evidence: Speed-of-sound, Gamma-ray-emission, X-ray-poros- 
ity, Radioactivity, Hardness, Colour, Depth... 

Hypotheses: Shale, Sandstone, Granite, Limestone... 


An expert is supposed to know which items of evidence are relevant to 
which hypotheses. 

The point is that different pieces of evidence help to confirm, or refute, 
different hypotheses. Expertise lies in sifting the strengths and weaknesses 
of these (possibly conflicting) indicators. This is true in many domains. 
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Our example avoids medicine (like the plague), for the very good reason 
that it is an offence to set up in the UK as an unqualified medical practitioner, 
and we do not want disgruntled users who diagnose themselves wrongly 
suing us on that count! Let us take a safer example — how to choose a house. 
Our program is an estate-agent's assistant, which may help the estate agent 
to make slightly better judgements in the process of matching clients to 
properties. Thus the items of evidence are the customer's preferences, and 
the hypotheses are the houses and flats for sale. 

The program listing is followed by a specimen of the kind of printout 
produced by running it. 





Listing 6.6 Very basic expert system 








10 REM KKK KKKKKEKKEKKKKKKEKEKEKKKKKKK KK KKK 
11 REM ** Listing 6.6 : baled 
12 REM ** VERY BASIC EXPERT SYSTEM ** 
15 REM KKEKKKKKEKEKEKKKEKKKKKKKKKKKKKKKKKEK 


20 REM Copyright (c) 1986, Warm Boot Ltd. 


50 : 
60 MODE 1: BORDER 20 
100 REM -- Unreal Estates: 


110 GOSUB 1000 : REM initialization 

120 GOSUB 1500 : REM welcome screen. 

130 GOSUB 2000 : REM structured selection. 

140 GOSUB 5000 : REM optional print-out 

150 PRINT CHR$(7): PRINT "Bye for now!" 

160 END 

LO 8 

500 REM -- Data Dictionary: 

501 DATA 8 

502 REM no. of variables. 

510 DATA COST,N,2 

520 DATA BEDROOMS,N,1 

530 DATA POSTCODE,C,1 

540 DATA TYPE, C,l 

550 DATA MODE, C,1l 

560 DATA C.H., C,l 

570 DATA GARAGES, N,1l 

580 DATA MAINROAD, C,1 

590 

600 REM -- Now the data itself: 

610 DATA St. Matthews Court 

620 DATA cost=44500,bedrooms=2 ,type=f lat,mode=lease, postcode=N10 
* 

Y 

630 DATA Lorraine Mansions 

640 DATA cost=54000,bedrooms=2,type=flat,postcode=N7,C.H.=yes,ga 
rages=0,* 

650 DATA Broomfield Avenue 

660 DATA cost=63000,bedrooms=3,type=terraced,mode=freehold,C.H.= 

yes, postcode=N13,* 

670 DATA Harlaxton Drive 

680 DATA cost=49950,bedrooms=5 ,mainroad=no,garages=1,type=semi,m 

ode=f reehold, postcode=NG2,C.H.=yes,* 

690 DATA Mount Pleasant Cottages 

700 DATA cost=51750,bedrooms=2,c.h.=yes,garages=0, postcode=N14,* 
710 DATA St. Marys Road 
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720 DATA cost=52500,c.h.=yes,bedrooms=3 ,garages=1 , postcode=N9 ,mo 
de=freehold,* 

730 DATA Malvern Road 

740 DATA cost=52950,bedrooms=3,c.h.=yes,bedrooms=3,type=terraced 
,postcode=né8, * 

900 DATA "**" 

999 : 

1000 REM -- Initialization routine: 

1010 READ evidence’ 

1020 DIM vars$ (evidences) ,kind$ (evidence?$) 

1024 DIM criteria$ (evidence$) ,wt% (evidences ) 

1025 DIM proplist$(24),op$(4) 

1030 FOR e%=l TO evidences 

1040 READ vars$(e%),kind$(e%) ,wt%(e%) 

1050 NEXT e% 

1055 crit%=0 

1060 op$(1)="EQ": op$(2)="NE" 

1070 op$(3)="LT": op$(4)="GT" 

1080 cr$=CHR$(13) : sp$=CHR$(32) 


1085 eq$="="_: half = 0.5 
1088 starS="*": haltS="**" 
1100 REM -- also define windows: 


1110 WINDOW #1,1,20,1,11 

1120 WINDOW #2,22,40,1,11 

1130 WINDOW #3,1,20, 12,22 

1140 WINDOW #4,22,40,12,22 

1160 LOCATE 12,23 

1170 PRINT "XSYS AT YOUR SERVICE" 

1172 PRINT TAB(12); "No. of variables =";evidence$%; 
1175 FOR w%=l TO 4 

1177 PRINT #w%, "WINDOW" ;w% 

1180 NEXT 

1188 INK 2,2 

1190 PAPER #1,3: PAPER #4,3 

1195 PAPER #2,2: PAPER #3,2 

1200 REM -- also count the data: 

1210 READ a$: counter%=0 

1220 WHILE a$<>halt$ 

1230 IF a$=star$ THEN counter%=counter$+1l 
1235 READ a$ 

1240 WEND 

1248 theories%=counter’% 

1250 DIM goodness$(theories$) ,dist(theories$ ) 
1255 PRINT TAB(12);"No. of hypotheses=";theories% 
1260 RETURN 

1280 : 

1500 REM -- Instruction routine: 

1505 RETURN 

1515 REM no instructions yet! 

1525 3: 

1600 REM -- Single key input routine: 

1610 ch$=INKEY$: IF ch$="" THEN GOTO 1610 
1620 IF ch$<>cr$ AND ch$<>sp$ THEN GOTO 1610 
1630 RETURN 

1640 REM -- with ch$=cr$ or ch$=sp$ 

1660 : 

2000 REM -- Main Input routine: 

2010 done%=0 

2020 used%=0 

2025 FOR h%=0 TO theories% : goodness%(h%)=0 
2030 NEXT h% 

2050 WHILE used%<evidence% AND done%=0 

2060 GOSUB 2200 : REM pick variable. 
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2065 GOSUB 2500 : REM get preference 
2066 GOSUB 3000 : REM confirm input. 
2070 IF confirm%=0 THEN GOTO 2060 
2075 GOSUB 3200 : REM match choices. 
2080 GOSUB 4000 : REM update display 
2100 WEND 

2120 RETURN 

2150 : 

2200 REM -- Get-choice routine: 

2210 w%=1 

2220 CLS#w% 

2222 ev%=0 F 

2230 PRINT #w%,"Variables left:" 

2240 FOR v%=l TO evidence’ 

2250 LOCATE #w%,2,4 

2255 IF kind$(v%)="X" THEN GOTO 2300 : REM skip used vars. 
2260 PRINT #w%, vars$(v%);SPC(16) 
2270 GOSUB 1600 

2280 IF ch$=cr$ THEN ev%=v%: v%=evidence$% 
2300 NEXT v% 

2320 IF ev%<>0 THEN RETURN 

2330 REM -- othewise test for quitting. 
2340 LOCATE #w%,1,7 

2350 PRINT #w%, "SPACE to Go on:" 

2360 PRINT #w%, "RETURN to Quit:" 

2370 GOSUB 1600 

2380 IF ch$=sp$ THEN PRINT #w%,"Try again.": GOTO 2220 
2390 donet=1 

2400 RETURN 

2420 : 

2500 REM -- Get operator and tval$ 

2505 IF ev%=0 THEN RETURN 

2510 w%=2 

2520 CLS#w%: PRINT #w%, "Pick Operator:" 
2525 comp%=0 : ct=1l 

2530 cmax%=4 

2540 IF kind$(ev%)="C" THEN cmax%=2 
2550 WHILE comp%=0 

2560 LOCATE #w%, 2,4 

2570 PRINT #w%, op$(c%) 

2580 GOSUB 1600 : REM get ch$ 

2600 IF ch$=cr$ THEN comp%=c% 

2610 c%=c%+l: IF ct>cmax% THEN c%=1 
2620 WEND 

2630 REM -- cycle till choice made. 
2640 REM -- Now get target value: 

2650 tv%=0: t%=0: tval$="" 

2655 WHILE tval$="" 

2660 RESTORE 600: w%=3: CLS#w%: t%=0 
2666 PRINT #w%, "Possible values:" 
2670 WHILE tv%=0 AND t%<theories% 


2680 t%=ts+1 

2690 READ name$ 

2700 GOSUB 6000 : REM get proplist$ 

2710 FOR f%=l1 TO features 

2720 LOCATE #w%, 2,4 

2730 GOSUB 6400 : REM split "prop=value" 
2740 IF lhS$=vars$(ev%) THEN PRINT #w%,rh$;SPC(12) ELSE GOT 
O 2780 

2750 GOSUB 1600 

2760 IF ch$=cr$ THEN tv%=f%: tval$=rh$ 
2780 NEXT f£% 


2800 WEND 
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2820 WEND 
2850 RETURN 
2880 : 
3000 REM -- Confirmation routine: 
3010 confirm%=l1: IF done% THEN RETURN 


3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3200 
3210 
3220 
3222 
3224 
3225 
3230 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3355 
3360 
3380 
3390 
3400 
3404 
3410 
3420 
3422 
3425 
3430 
3440 
3450 
3460 
3470 
3500 
3505 
3520 
3530 
3600 
3610 
3620 
3630 
3640 
3650 


evS=varsS (evs ) 

comp$=op$ (comp$ ) 

w%=4; CLS#w% 

PRINT #w%, "Confirm Choice:" 
PRINT #w% 

PRINT #w%, evS 

PRINT #w%, SPC(2) ;comp$ 
PRINT #w%, tval$ 

PRINT #w% 

PRINT #w%, "SPACE to go on:" 
PRINT #w%, "RETURN to quit." 
GOSUB 1600 

IF ch$=cr$ THEN confirm%=0 
RETURN 


REM -- Matching routine: 

IF done% THEN RETURN 

RESTORE 600 

crits=crit+1 

criteria$(crit%)=ev$t+spS$t+comp$+sp$+tval$ 

REM -- save criteria for printout. 

w%=4: CLS#w 

dmax=-1E+33 : dmin=1lE+33 

FOR h%=l1 TO theories% 
dist(h%)=half: NEXT h% 

FOR h%=l1 TO theories% 


READ name$ 
GOSUB 6000 : REM get proplist$() 
FOR f%=1 TO features% 
GOSUB 6400 : REM split prop/val. 
IF ev$=lh$ THEN GOSUB 3600 ELSE GOTO 3360 
dist (h%)=d 
IF d > dmax THEN dmax=d 
IF d < dmin THEN dmin=d 
NEXT f£% 
NEXT h% 
kind$ (ev%)="X"_ : REM mark as used 
used%=used%+l  : REM and count 
RESTORE 600 


FOR h%=1 TO theories% 
gain%=0 : READ name$ 


name$=LEFTS (name$,16) 
GOSUB 6000 
IF dist(h%) >= dmax THEN gain%=-1 
IF dist(h%) <= dmin THEN gain$=1 
goodness$%(h%)=goodness$(h%)+gain%*wt %(ev$ ) 
IF gain%>0 THEN PRINT #w%, "++ ";name$; 
IF gaint<0 THEN PRINT #w%, "-- ";name$; 
NEXT h% 

PRINT #w% 

RETURN 

REM -- Distance routine: 

IF kind$(ev%)="N" THEN GOTO 3700 


REM -- Character data: 

d=1 

IF rh$=tval$ THEN d=0 

IF comp$="NE" THEN d = l-d 
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3660 
3670 
3680 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
4000 
4004 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4100 
4101 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4255 
4260 
5000 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5175 
5180 
5190 
5200 
5202 


RETURN 
REM with d=1 or d=0 


REM -- Numeric data: 

diff = VAL(rh$) - VAL(tval$) 

IF comp$="EQ" THEN d=ABS(diff) 
IF comp$="NE" THEN d=-ABS (diff ) 
IF comp$="GT" THEN d=-diff 

IF comp$="LT" THEN d=diff 
RETURN 

REM with distance from target. 


REM -- Display routine: 

IF done% THEN RETURN 

wt=4 

PRINT #w%, "SPACE or RETURN to go on:" 
GOSUB 1600 

CLS#wt 


dmax=0: dmin=0 

FOR h%=l TO theories 
IF goodness%(h%)<dmin THEN dmin=goodness%(h$) 
IF goodness%(h%)>dmax THEN dmax=goodness¢$(h$) 
NEXT h% 

RESTORE 600 

PRINT #w%, "BEST choices:" 

FOR h%=1 TO theories% 
READ name$ 
GOSUB 6000 : REM keep in step 
IF goodness%(h%)>=dmax THEN PRINT #w%, LEFTS(name$,17) 
NEXT h&% 

RESTORE 600: PRINT #w% 

PRINT #w%, "WORST choices:" 

FOR h%=1 TO theories% 
READ name$ 
GOSUB 6000 
IF goodness%(h%)<=dmin THEN PRINT #w%, LEFTS(name$,17) 
NEXT h% 

PRINT #w%, CHRS(7); 

FOR w%=1 TO 3: CLS#w%: NEXT w% 

RETURN 


REM -- Printout routine: 
w=] 
CLS #w 
PRINT #w%, "Do you want a print-out ? "; 
ys="" 
WHILE y$<>"y" AND y$<>"n" 
y$=INKEY$: IF y$="" THEN GOTO 5070 
y$=LOWERS (y$) 
WEND 
PRINT #w%, yS 
IF y$="n" THEN RETURN 
REM -- else do a listing: 
ch%=8: GOSUB 5500 
PRINT #ch%,"LIST OF CHOICES:" 
PRINT #ch% 
RESTORE 600 
FOR h%=1 TO theories% 
READ name$ 
PRINT #ch%: PRINT #ch% 
GOSUB 6000 : REM get proplist$ 
PRINT #ch%, TAB(4);name$ 
IF goodness%(h%)>=dmax THEN PRINT #ch%, TAB(4) ;"**BEST**" 
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5205 


5220 
5230 
5240 
5250 
5260 
5265 
5270 
5280 
5290 
5300 
5330 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5565 
5570 
5580 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6400 
6410 
6420 
6430 
6450 
6460 
6480 


YOUR 


C.H. 
COST 


IF goodness%(h%)<=dmin THEN PRINT #ch%, TAB(4);"**WORST** 
PRINT #ch% 
FOR f£%=1 TO features% 
GOSUB 6400 
PRINT #ch%, lh$;TAB(17) ;eq$;TAB(22) ;rh$ 
NEXT f£% 
PRINT #ch%, "Score";TAB(17);eq$;TAB(22) ;goodness$(h%) 
PRINT #ch% 
NEXT h% 
PRINT #ch% 
RETURN 
REM -- Routine to print criteria: 
PRINT #ch%,"YOUR PREFERENCES WERE:" 
PRINT #ch% 
FOR c%=l TO crits 


PRINT #ch%, criteriaS(c%) 
NEXT c% 

PRINT #ch% 

PRINT #ch% 

RETURN 


REM -- Routine to get attributes: 
features%=0 
READ a$ 
WHILE INSTR(aS,eq$) 
features%=l+features% 
proplist$ (features%)=UPPERS(a$) 
READ a$ 
WEND 
RETURN 


REM -- Routine to split prop=val: 
p%=INSTR(pr-; list$(f%),eq$) 
Lh$=LEFTS (proplist$(f%),p%-1) 
rh$=MID$ (proplist$(f%),p%+l) 


RETURN 
REM -- lh$ is property; rh$ is value. 
PREFERENCES WERE: 


EQ YES 
LT 52500 


BEDROOMS GT 3 
POSTCODE NE N7 


TYPE 


LIST 


NE FLAT 


OF CHOICES: 


St. Matthews Court 
Cost = 44500 
BEDROOMS = 2 
TYPE = FLAT 
MODE = LEASE 
POSTCODE = N10 
Score = 0 
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Lorraine Mansions 
**WORST** 


cost 
BEDROOMS 
TYPE 
POSTCODE 
C.Hs 
GARAGES 
Score 


nunuwnwu dn 


Broomfield Avenue 


COST 
BEDROOMS 
TYPE 
MODE 
C.H. 
POSTCODE 
Score 


Harlaxton Drive 
**BEST** 


COST 
BEDROOMS 
MAINROAD 
GARAGES 
TYPE 
MODE 
POSTCODE 
C.H. 
Score 


monwnnr wn uu 


54000 


FLAT 
N7 
YES 


=2 


63000 
3 
TERRACED 
FREEHOLD 
YES 
N13 

1 


49950 
5 
NO 
1 
SEMI 
FREFHOLD 
NG2 
YES 
4 


Mount Pleasant Cottages 


COST 
BEDROOMS 
C.H. 
GARAGES 
POSTCODE 
Score 


nunnunhudn 


St. Mary’s Road 


COsT 
C.H. 
BEDROOMS 
GARAGES 
POSTCODE 
MODE 
Score 


51750 
2 
YES 
0 
N14 
af 


52500 

YES 

3 

1 

N9 

FREEHOLD 
2 
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Malvern Road 


Cost = 52950 
BEDROOMS = 3 

CoH. = YES 
BEDROOMS = 3 

TYPE = TERRACED 
POSTCODE = N8 

Score = 3 


In any expert system the distinction between the knowledge base and the 
inference engine is fundamental. In our case the ‘knowledge’ is defined on 
lines 500 to 999. It has a very simple format. First comes the number of 
variables (on line 501) or items of evidence. Then follow the names of these 
variables (lines 510 to 580), each of which has a type (C or N) that indicates 
whether it describes character or numeric data and an integer which 
weights its relative importance. For example, on line 510, we have weighted 
COST as 2, while all other variables have a weight of 1. This means that price 
is twice as important as any other variable in reaching a decision. 

On lines 600 onwards the actual data can be seen, describing a number of 
properties for sale. The first item is always the name of the property (or the 
road where it is situated). This is followed by attribute—value pairings, in no 
particular order. For instance 


bedrooms=2, C.H.=Yes 


signify, in turn, a property with two bedrooms and central heating. Not all the 
attributes need to be specified for every house: the program can cope with 
missing features. (You should be able to make sense of the rest of the details 
on your own.) 

Each entry is ended by an asterisk (*), and the list of entries is ended with 
a double asterisk (**): see line 900. Upper and lower case letters are 
interchangeable. 

Note particularly that it is only these data which tie the program down to an 
estate-agency application. You could easily remove the data shown here 
and plug in another ‘knowledge base’ - concerned with purchasing cars, say 
— to change the domain of application. (This is crucial in full-scale expert 
systems. ) 

The inference engine, such as it is, occupies much of the rest of the 
program. See especially lines 2000-2120 and 3200-3780. We have extended 
the ideas introduced in Listing 6.3. In essence, each hypothesis is scored 
according to how well it matches each of the user's criteria. By examining the 
matching routine on lines 3200 to 3530 you will be able to see how the system 
takes care of missing attributes, how it scores hypotheses by their ‘distance’ 
from the desired specification, and so forth. 

The moral of our story, however, is not concerned with expert systems as 
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such, but with input and output; and the message is that if you give the user an 
opportunity to make a mistake he will grab it with both hands and put his foot 
in it (So to speak). It is asking for trouble expecting a user to type lines like 


MODE EQ LEASEHOLD 
GARAGES GT 0 


correctly, or even to remember that a field is called MODE or GARAGES 
(rather than, say, TENURE or GARAGE). The objective of the input 
subroutines, at lines 2200 and 2500, is therefore to restrict the user's choice to 
that which is valid - and nothing else. 

How is this achieved? By taking advantage of the Amstrad's WINDOW 
facility and splitting the screen into four separate ‘windows or boxes. These 
are defined on lines 1110 to 1140. For example, the line 1120 


1120 WINDOW #2, 22,40,1,11 


puts window number 2 in columns 22 to 40 across and rows | to 11 down 
within the main screen —i.e. the top right-hand quadrant. A PRINT statement 
directed to this window, such as line 2570, writes the output in this portion of 
the screen, which acts - to all intents and purposes - like a miniature screen 
in its own right. 

What happens when the user makes a preference is that each 
window-box is used to get one component of that preference. Suppose the 
preference is 


COST LT _ 63000 


indicating a target price of under £63000. This consists of three components — 
a variable name, an operator and a numeric value. In the top left box the user 
is presented with each of the (eight) variables one by one. Pressing the 
Space bar steps on to the next choice; pressing RETURN selects the variable 
shown. In the next box the user is stepped through the possible operators, 
EQ, NE, GT, LT in the same manner. Finally, in the lower-left box the user is 
presented with the actual values present in the data (for the variable chosen) 
rather than being required to type in a number. The fourth window is used 
for reporting intermediate results back to the user. 

All the user ever does is type either SPACE or RETURN. Any other 
characters are simply ignored; yet this is sufficient to build up a list of quite 
sophisticated choices, such as that below. 


COST LT 54000 
POSTCODE NE N7 

C.H. EQ YES 

MODE EQ FREEHOLD 


The burden on the user's memory is minimal. He or she need not remember 
the precise names of the variables, nor guess what a sensible value for a 
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comparison is, nor even worry about whether the term LEASE or 
LEASEHOLD is used in the knowledge base. 

Readers can have some fun modifying this program to their own 
requirements. The technically minded may be interested to know that it uses 
a modified ‘forward chaining’ strategy. A forward-chaining system works 
through a sequence of evidence (whereas a ‘backward chaining’ system 
works through a list of hypotheses). In this case the order of evidence is, by 
default, the order in which variables are named on lines 510 onwards, and 
can be changed by a straightforward program amendment. But the user 
does not have to deal with them in the order given. By stepping through the 
variables offered in Window 1 (Pick Variable:"), you can pick any variable 
not yet used. So the evidence can be dealt with in any order you like. 


6.7 Exercises 


1. Write a reaction time program. It should warn the user that input is 
expected of him or her, and then flash something onto the screen which the 
user must copy correctly. The system variable TIME can be used, or the 
program can keep its own counter, but the user must be given some 
measure of the time taken to respond. The degree of accuracy should also 
be measured. This program can be regarded as the first step on the road toa 
typing tutor. 

Is INPUT appropriate for this exercise, or should one of the single- 
keypress functions be used? 


2. Write the missing welcome-screen routine for Listing 6.6, from line 
1500 onwards. This should give the user instructions. 


3. Calculate and print an interest table for investments showing the return 
at rates from 1% to 12% over from | to 25 interest periods, using the formula 


R = (1+1/100) ~ N 


Where R=return, I=Interest rate in percent and N=number of periods. 
Employ PRINT USING for the output. 


4. Write a monthly billing program for a time-sharing computer bureau 
where charges to users are £6 per hour of connected time; 10 pence per 
minute of runtime; 8 pence per disc block used; plus a standing charge of £10 
per month. Data to be read are: account-name (a string); connect-time in 
hours; runtime in minutes; and average disc-block usage over the month. 
This information is to be held in the form of DATA statements. 


5. Write a program that accepts a list of frequencies and produces a 
histogram from them. It will be easier if the histogram is printed sideways. 
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For instance, given the scores 7, 0, 4, 17, 2, 8, 10 the program would produce 
something like the output below. 


ol: KkEKKKE 


02: 

03: week 

04: KEKE KKKEKKKEE 
05: ** 


06: Kak kkeee 


07: aRkkkkkkhkhk 


The final version of your program should scale the input frequencies so that 
they fit onto the printed page. If you give the WIDTH 80 command, line width 
is set to 80 characters, in which case the data should be scaled to take up no 
more than 75 stars. 


6. We have not yet started to delve into the world of the Amstrad's 
graphical facilities proper; but we have already found occasion to use the 
LOCATE instruction, whose form is 


LOCATE [#chan,] horizontal, vertical 


where ‘horizontal’ gives the displacement to the right and ‘vertical’ gives the 
displacement downwards -— both in character-position units. (The optional 
‘chan’ is a numeric expression in the range 0 to 7 referring to a screen 
window.) This statement can be useful for producing ‘chunky’ graphics. 
Write a program using LOCATE to display the ‘logistic curve’ on the 


| Fig. 6.1 Logistic curve | 


(Carrying capacity, K ) 


Population 
S|ze (n) 





Time (ft) 
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screen. The logistic curve is used to describe a variety of growth processes, 
e.g. the growth of a population of bacteria in a supporting medium. It 
describes the rate of growth in terms of the formula 


Dn = Dt * rate *n * (1 —n/K) 


Where Dn is the increase in numbers during a short time-step and Dt is the 
time-step. The other variables are 


rate the rate of increase (per time-step); 
n the number of items (bacteria, say); 
K the maximum carrying capacity of the medium. 


Use a LOCATE to position a printed asterisk on the screen at the correct X 
and Y coordinates to plot the curve for 12 hours. You will find it necessary to 
calculate the values at least every quarter of an hour, even though they are 
only plotted once per hour — to maintain accuracy. Suitable test values are: 
rate = 0.2; K = 1200; with initial n = 20. 


vf 
Files 


ELEMENTARY DATA PROCESSING 


The proprietor of a small firm arrives at his office one morning to find it gutted 
by fire. What is his first concern? The computer? No: that was insured. The 
software? No: that can be replaced. What he is really worried about is the 
security of his data files, because they are the lifeblood of the business. 

If you wanted to sum up the difference between home computing and 
commercial data processing in one word, that word would have to be ‘files’. 
Yet the Amstrad microcomputers — especially with disc drives — allow the 
home computer user a long way into the field of professional data 
processing, by virtue of their extensive file-handling facilities. 

A file is a collection of information held for long-term storage on disc or 
tape. There are two main types of file - sequential and random-access. You 
have already met sequential files, since every time youSAVEa program you 
are creating a file in which that program is stored. 

Sequential files can only be processed in serial order from the beginning. 
For example, a program is always LOADed starting at the first character and 
continuing with successive characters until the end. 

Random-access files are divided into chunks known as ‘records’ each of 
which can be accessed individually. If you had 30 records in a 
random-access datafile you could read the 28th one, then the 15th, then write 
new data to the 17th, and so on in whatever order you pleased. 

Magnetic tape, being an inherently serial medium, can only support 
sequential files. So those of you using CPC 464s without disc units will find 
yourselves left out in the cold for parts of this chapter. Please grin and bear it 
for the moment. Fortunately disc-drive prices continue to fall, so it may not 
be very long before the whole chapter is relevant to you. Then you too can 
enter a new realm of computing. 


7.1 Simple file-handling 


Files on the Amstrad microcomputers are handled by the Operating System 
(AMSDOS for Amstrad Disc Operating System). You have already met the 
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SAVE and LOAD filing commands and become familiar with the idea that 
each file has a name, and that a group of files is collected together in a 
catalogue. 

With AMSDOS these ideas are somewhat extended. Each file is 
referenced by a ‘file specification’. In its simplest form a file specification is 
simply a file name, e.g. 


CAVERNS 


consisting of up to eight characters. But the name may be followed by an 
‘extension’ of up to three characters, as in 


CAVERNS.BAS 


which usually indicates the type of the file. So far we have always been using 
files as receptacles for Basic programs, so when we have given commands 
like 


SAVE “BONK” 
AMSDOS has very helpfully expanded the command to 
SAVE “BONK.BAS” 


to save us typing. You have probably noticed that when you give the CAT 
command, you geta list of filenames with their extensions. You may also have 
worked out that “BONK. BAK" (if such a file exists) is the back-up version of 
“BONK.BAS". When you SAVE a Basic program, AMSDOS stores the 
previous version, if any, with a.BAK extension — just as a precaution, in case 
you did not really mean to overwrite it. 

Acomplete file specification also requires a drive prefix at the front (A: or 
B:) to select the disc unit. With a single-drive system there is only one disc 
unit (labelled A), so you can forget the drive prefix most of the time as it 
defaults to A: normally. But occasionally you may have a use for commands 
like 


SAVE “B:ZONK.OLD” 


which saves a file named ZONK with extension OLD on drive B. 

Section 7.1.1 givesa list of the most useful commands for manipulating files. 
These are additional to the CAT, LOAD and SAVE commands already 
discussed. 

All the AMSDOS commands that follow should be prefixed by the vertical 
bar character (|) which tells Basic to pass the command line over to the 
operating system (unlike CAT, LOAD and SAVE). This character can be 
found over the commercial at-sign key (@). 

Sometimes you may want to refer to a group of files. For this purpose you 
can use the so-called ‘wild cards’, the question mark and the asterisk, in the 








SIMPLE FILE HANDLING | | 119 





file specification. The question mark (?) matches any single character, while 
the asterisk (*) matches the remainder of the name or extension. Thus 


|DIR,“B?N?.*” 

could be used to match BONE, BONK, BUNK, BANG, BOND, BANK, BINS 
etc, with any extension at all. 

7.1.1 AMSDOS commands 

A 


This sets the default drive to A, which is the main drive within the 
computer. On single-drive systems A is the only drive. This saves putting A: 
in front of all file references. 


B 


This sets the default drive to B. The main (or only) drive is A, which is 
selected at start-up time. 


CPM 


This switches to the alternative disc operating system, the widely-known 
CP/M (provided you have a CP/M disc in the selected drive). CP/M 
deserves a book of its own (and has got several). We cannot describe it in 
detail here. For more information consult Appendix C, or if that is insufficient 
buy one of the books. 


DIR [,filespec] 


This displays the directory, like CAT but in CP/M style. The ‘filespec’ is a 
string that specifies which files to show. If it is omitted, all files are listed. Thus 
|DIR,“*.BAK” displays all files with BAK extension. 


DISC 


Causes disc to be used for file input and output till the next TAPE 
command. This is the normal state if you have a disc unit. 


ERA [,filespec] 


Erases all files which match the specification. Thus |ERA,“*.BAK” deletes 
all .BAK files. 


REN,newspec,oldspec 


Renames a file. The old name is given second, and the new name first. 
Thus 


|REN,“ZONK.ZAP”,“WHAM.WOW” 
gives the file WHAM.WOW the new name ZONK.ZAP henceforward. 
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TAPE 


Selects the cassete as the file input/output medium until the next DISC 
command. 


USER, integer 


Determines which of up to sixteen sections of the disc directory 
(numbered 0 to 15) is to be selected. Normally number 0 is selected, but this 
allows a disc to be partitioned between several applications for conveni- 
ence. 

(Note that an AMSDOS command is separated from its subsequent 
argument, if there is one, by a comma, not by a space.) 


7.1.2 Basic file concepts 


We have just presented a list of commands for doing various useful things 
with files from outside a program. In order to do any serious data processing 
we need a set of instructions for handling files from within a Basic program; 
and to make sense of those instructions it is important to understand a few 
essential file-handling concepts. The most important of these are: record, 
field, files OPEN, CLOSE, read and write. 

A record is the fundamental unit of file processing. It is a collection of 
information about an identifiable object. For instance, a record could contain 
the name, address and phone number ofan individual; or it could contain the 
title, author, price, publisher and ISBN of a certain book; or again it could 
hold the temperature, rainfall and pressure readings of a given day. The 
essential point is that the data in one record belong together. The size of a 
record may be anything from a single character (extremely small) to 
thousands of characters (extremely large). 

Records are normally considered to be composed of one or more fields. A 
field is an elementary data item such as a string or a number, e.g. the string 
giving a book's title in a bibliographic record, or the number of millimetres of 
rainfall in a weather record. Often one field is singled out as the ‘Key Field’ 
which uniquely identifies the record: this may be a name, a standard book 
number, an account number or some other identifying code. 

A file is best viewed simply as a group of records. Incidentally, a 
‘database’, if you have come across that term, is the next level up — being a 
grouping of logically related files. The hierarchical diagram in Fig. 7.1] 
illustrates this. 

Ifa program is going to use a file it is necessary to inform the filing system 
by OPENing that file; and when the program finishes with it, it should be 
CLOSEd. Closing a file ensures that certain routine housekeeping tasks 
which keep things in order for future use are performed properly. 
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Database is a collection of Files 
Vea 
File is a collection of Records 
JS 
Record is acollection of Fields 
JEAN 
Field is a collection of Characters 


Finally, the object of the exercise is to read and/or write data on the file. 
Data are normally read or written one record at a time. Reading transfers 
information from the file into program variables in memory, where 
computations can be performed in the usual way. Writing transfers results 
obtained within the program to a file for long-term storage. 


7.1.3 Channels and files 


Within a program a file is referred to by a channel number, not by its name. 
Before reading or writing a file, therefore, the program must set up 
correspondence between a file name and a channel number. This is done in 
one of two ways, by OPENIN or by OPENOUT. 

Thus 


OPENIN “MARCH858” 


opens the file MARCH85 for reading. The file must already exist. 
Likewise 
OPENOUT “APRIL85” 


opens APRIL85 for writing. This file will be created if it does not already 
exist. If a file of that name does exist, its contents will be erased, so this 
statement demands careful handling. 

Amstrad Basic is extremely mean in its allocation of channel numbers for 
files. In fact, there is only one —- number 9! This means that you can only have 
one input and one output file open at a time. (Looking on the bright side, 


f Aicaee 
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though, it also makes it hard to forget which channel number is for disc 
access!) 
Channel numbers in Amstrad Basic are allocated as follows: 


0 normal screen input and output; 

1-7 screen ‘windows’ as defined by the programmer (see Chapter 6); 
8 output to the printer (see Chapter 6); 

9 disc file access. 


A PRINT or INPUT statement with no channel specified defaults to channel 
zero — the display screen. 


7.1.4 Sequential read and write 


Once a file has been opened, data may be read from it by the INPUT# 
statement. Thus 


1000 INPUT #9, maxtemp,mintemp,rainfall,sunshine 


would read four (floating-point) numbers from a disc file into the variables 
maxtemp, mintemp, rainfall and sunshine. It is essential therefore that the 
data has been recorded in numeric form. The syntax of this statement 
consists of the keywords INPUT, then the channel selector (#9), followed by 
a list of one or more variables separated by commas. 

You can also use LINE INPUT #9, to get a complete line of data, commas 
and all, in a similar fashion. 

To write data sequentially to a file opened with OPENOUT, you can use 
the PRINT# statement. So 


2200 PRINT# 9, weekday$,humidity,pressure,D% +1 


would place a string and three numbers onto the file connected to channel 9. 
The final number would be an integer, with the value of D% + 1, which shows 
that the list of items to be written need not be variables, they can be 
expressions as well — of string, floating-point or integer type. 

However, the PRINT#9 statement formats the output just as a normal 
PRINT would do on the screen. This is fine if the output is for human 
consumption; but if you want to write data which will later be read back into a 
program, something else is required. For this the WRITE statement should 
be used. Thus 


2200 WRITE #9, weekday$,humidity,pressure,D% +1 


would be more realistic than the previous version of line 2200. This is 
because WRITE puts strings in quotation marks and separates data items 
with commas, for reading back later. 
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Actually the concept of records, which we stated was so important in 
file-handling, is not fully supported by Amstrad Basic. The record structure 
has to be imposed by the programmer. That is to say: you must decide on the 
structure of your file and stick to it. If you put out the data as follows 


2000 FOR R% = 1 TO 36 
2010 WRITE #9, R%name$(R%),item(R%),code% 
2020 NEXT R% 


then you must read it back in a similar way. The data as written will, in this 
case, consist of groups of four items (or fields). The first field is a number, an 
integer in fact, R%; the second is string data, the R%th element of the array 
name$(); the third item is a floating-point number from the array item(), and 
the fourth one is another integer value. To read such data back with 


2500 FOR Q% = 1 TO 36 
2510 INPUT# 9, position%(Q%),name$(Q%), item(Q%),codenum%(Q%) 
2520 NEXT Q% 


would make sense, since it preserves the order integer, string, floating- 
point, integer; but the following would be erroneous 


3500 FOR Q% = 1 TO 36 
3510 INPUT# 9, name$ (Q%), item(Q%),R% 
3520 NEXT Q% 


for two reasons. The first problem is that the data were written in groups of 
four items, but has been read back three items at a time. The other problem 
is that the first item in the INPUT# list is a string, the second a floating-point 
number and the third an integer. This does not correspond to the order of 
data on file, and so a “Type Mismatch” error will occur, 

The simplest way to avoid this kind of mistake is to establish a record 
structure in your program plan (e.g. string, string, integer, floating-point — or 
whatever is appropriate) and always ensure that you WRITE# and INPUT# 
in accordance with that structure. 

It is also worth knowing that Amstrad Basic datafiles are held in ASCII 
format: they are merely sequences of characters. This means that you can 
usefully employ a simple dodge to create a sequential file without any 
programming at all. All you have to do is use AUTO as if you were typing ina 
Basic program and enter the data, line by line, using commas as separators. 
When you have finished use a special form of the SAVE command, followed 
by the letter A, which saves in ASCII mode. Thus 


SAVE “TEST.DAT”,A 


saves the current ‘program’ (which is actually data) in ASCII format as the file 
TEST. DAT on disc. Having done so, you can list the program and edit it in the 
normal way, using the cursor-control and COPY keys for editing if desired. 
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You can also read it by a Basic program, as long as you remember to skip 
over the line numbers at the front of each line (which are held as characters 
too). 

For example the following listing shows part of a datafile created in this 
way for a simple sales ledger. 





Listing 7.1 Sales datafile 














[Listing 7.1:] 


50 16 JAN84,16 JAN84,BIS/COLLINS, 20,HULK, 23,3,SOFT,Q1,S 

60 25 JAN84,25 JAN84,CENTURY/BROCKBANK,21,HULK,23,3,SOFT,Q1,S 

70 27 JAN84,30 MAY84,R. OLNEY, 22,A184,110.4,14.4,SEMI,Q1,S 

80 8 MAY84,30 MAY84,R. OLNEY,22,AI84,-64.4,-8.4,SEMI,Q2,S 

90 27 JAN84,10 FEB84,SINCLAIR/SEARLE, 23,A1I84,220.8,28.8,SEMI,Q1,S 
100 28 JAN84,30 JAN84,BRAINSTORM,24,HULK ROYALTIES, 37.95,4.95,SOFT,Q1,S 
110 28 JAN84,9 APR84,STC/ELLAM, 25,AI84/ES84,211.6,27.6,SEMI,Q1,S 
120 28 JAN84,1 MAR84,DHSS,26,ES84,202.4,26.4,SEMI,Q1,S 

130 28 JAN84,20 MAR84,PROTEK,27,ES84,202.4,26.4,SEMI,Q1,S 

140 30 JAN84,8 MAR84,CAD CENTRE, 28,A184,124.2,16.2,SEMI,Q1,S 

150 30 JAN84,21 MAY84,BEESGREEN/LAWRENCE, 29,AI84,124.2,16.2,SEMI,Q1,S 
160 31 JAN84,5 MAR84,BRIGHTON POLY,30,AI84,124.2,16.2,SEMI,Q1,S 
170 2 FEB84,2 MAR84,ATARI/NORLEDGE, 31,A184,220.8,28.8,SEMI,Q1,S 
180 2 FEB84,5 MAR84,NIBKARN/SLATTERY, 32,A184,110.4,14.4,SEMI,Q1,S 
190 2 FEB84,17 FEB84,FAIRCHILD, 33,A184,303.6,39.6,SEMI,Q1,S 

200 2 FEB84,17 FEB84,FAIRCHILD, 34,ES84,285.2,37.2,SEMI,Q1,S 

210 16 FEB84,22 FEB84,FAIRCHILD, 34,ES84,-41.4,-5.4,SEMI,Q1,S 

220 2 FEB84,27 FEB84,BOLTON TNSTITUTE, 35,A184,138,18,SEMI,Q1,S 
230 4 FEB84,28 FEB84,PA TECHNOLOGY, 36,ES84,101.2,13.2,SEMI,Q1,S 
240 8 MAY84,8 MAY84,PA TECHNOLOGY, 36,ES84,-82.8,-10.8,SEMI,Q2,S 
250 4 FEB84,11 FEB84,QDQ SYSTEMS, 37,ES84,101.2,13.2,SEMI,Q1,S 


[Sales Datafile (extract).] 


Here there are ten items (or fields) per line: invoice date, date of payment, 
name of customer, invoice number, brief description, gross value, VAT 
value, type-code, VAT quarter and S (for sales, because P is used for 
purchases on another file). Incidentally, lines 210 and 240 show negative 
sales: these are credit notes or repayments. Accountants are so hooked on 
what Goethe called the ‘sublimest creation of the human mind’ - namely, 
double-entry book-keeping — that they refuse to acknowledge the invention 
of negative numbers. Still, why force your computer to behave like a 
mediaeval clerk? 

Datafiles in the format shown in Listing 7.1 can be read into a Basic 
program by a couple of lines such as the following. 


1010 INPUT #9, invdate$,paydate$,name$,code$,item$ 
1020 INPUT #9, sumtotal,vatvalue,heading$,quarter$,type$ 
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But remember that the program should strip off the line-number from the 
front of invdate$ before processing it. This is quite easy to arrange. 

The only snag with this short-cut method is that if you use words which are 
Basic keywords, such as ‘to’, ‘time’, ‘for’ etc., the interpreter will put them into 
upper case — whether you want it or not — because it thinks it is dealing witha 
program. 


7.1.5 End of file 


After opening and reading or writing a file it is important to close it. Among 
other things closing a file writes a special marker — the end-of-file mark — in 
the correct place so that the end of the file can be detected later. 

The statement 


CLOSEIN 


closes the input file on channel 9, if open. The statement 
CLOSEOUT 


will close any open output files. 

It is not always possible to know in advance how biga file is, so the function 
of EOF is provided to detect the end-of-file marker and avoid attempts to 
read beyond the data. Thus 


1250 IF EOF THEN GOSUB 6000 : REM shut up shop 


tests whether the input file currently open has any more data left to be read. 
If it has not EOF will be true and the shut-down routine will be executed. 

We can now put these ideas together to show you a small sequential file 
processing example. 


7.1.6 Sequential file creation 


This little example has a meteorological flavour. It assumes that we want to 
store (and later access) the London weather readings for a particular month. 
In this case the month is March 1984. Only the first 15 days are actually 
shown, to save space. 

Once the data is on file, we could write a variety of programs to do all sorts 
of things with it - even things we had not.thought of at the time of storing the 
data. For instance, we could plot the rainfall pattern, count how often sunny 
days were also windy, and so on. The list is endless. 
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LO REM 8% RR RII ROTO tk tok 


11 REM ** Listing 7.2 : isd 

12 REM ** SEQUENTIAL FILE CHKEATION ** 

15 REM KRKKKKEKKKEKEKKKKKKKKKKKKKKK KK KKK 

60 : 

100 REM -- Reads DATA into file: 

110 INPUT "Which File "; f$ 

120 OPENOUT f$ 

130 RESTORE 

140 READ counter’ 

150 FOR r% = 1 TO counter% 

160 READ dayname$,mintemp,maxtemp,humidity 
170 READ rainfall,maxgust,sunshine,mb% 

180 WRITE #9, dayname$,mintemp,maxtemp,humidity,rainfall,maxgust,sunshine,mb% 
190 NEXT r$% 

200 CLOSEOUT 

210 PRINT "File ";f£$;" created." 

220 PRINT counter%$;" records written." 

222 PRINT "BEWARE the IDES of MARCH!";CHRS$(7) 


250 END 

300 REM -- Weather Data for file: 

310 DATA 15 

320 DATA THUO], 4.5,13.2,59,1.6,23,4.4,1015 
330 DATA FRIO2, 5.1,7.3,42,1.1,62,5.6,1008 
340 DATA SATO3, 3.2,7.3,51,0,50,4.6,1017 
350 DATA SUNO4, 2.7,8.5,72,0.1,20,0,1025 
360 DATA MONOS, 7.7,10.5,91,0.2,15,0,1030 
370 DATA TUEO6, 9.1,13.4,66,0,20,0.5,1036 
380 DATA WEDO7, 8.0,10.8,65,0.02,28,0.1,1037 
390 DATA THUO8, 2.4,6.6,55,0,27,0.3, 1040 
400 DATA FRIO9, 3.6,6.9,57,0,24,1.2,1039 
410 DATA SAT10, 4.1,8.3,76,0.5,20,0,1030 
420 DATA SUN11, 5.7,10.6,59,0.2,22,0.4,1027 
430 DATA MON12, 4.2,8.6,74,3.9,25,1.5,1020 
440 DATA TUE13, 2.5,6.7,60,0.02,31,0.4,1022 
450 DATA WED14, 3.0,10.1,51,0,24,8.5,1015 
460 DATA THU15, 1.8,6.6,70,0,29,0.7,1015 
Ready 

run 


Which File ? march84 

File march84 created. 

15 records written. 
BEWARE the IDES of MARCH! 
Ready 


7.1.7 Sequential file listing 


One of the simplest things we can now do with this file is to list its contents on 
the screen (or on the printer if requested). It is not a very glamorous task, but 
it is such a common requirement that it is useful to see it done. After all, the 
first thing you need to know about a datafile is whether it contains what you 
think it should. 
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LO REM RRR KR RRR RRR EKER RE RKKEEKKK 


11 REM ** Listing 7.3 : belied 
12 REM ** SEQUENTIAL FILE LISTING ** 
15 REM KRKKKKKEKEKEKREKKEKRKEKEKEKKKKKKK 
60 : 

100 REM -- Reads data from file: 

101 oucht=0 : REM 8=printer, O=screen. 
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110 INPUT "Which File "; f£$ 

120 OPENIN f$ 

130 IF EOF THEN PRINT “Empty File!": END 

135 MODE 2: WIDTH 80: ZONE 10 

140 PRINT #ouch% 

150 PRINT #ouch%,"Day","Min. C","Max. C","Humidity", 

160 PRINT #ouch$,"Rain","Maxgust","Sunhours","Pressure" 

180 WHILE NOT EOF 

190 INPUT #9, date$,minc,maxc,damp,rain,wind, sunshine, pressure% 
200 PRINT #ouch%, date$,minc,maxc,damp,rain,wind,sunshine, pressures 
220 WEND 

250 CLOSEIN 


300 END 

Day Min. C Max. C Humidity Rain Maxgust Sunhours Pressure 
THUO] 4.5 13.2 59 1.6 23 4.4 1015 
FRIO2 5.1 7.3 42 Led 62 5.6 1008 
SATO3 3%2 7.3 51 0 50 4.6 1017 
SUNO4 2.7 8.5 72 0.1 20 0 1025 
MONOS 77 10.5 91 0.2 15 0 1030 
TUE06 9.1 13.4 66 0 20 0.5 1036 
WEDO7 8 10.8 65 0.02 28 0.1 1037 
THUO8 2.4 6.6 55 0 27 0.3 1040 
FRIO9 3.6 6.9 De 0 24 1.2 1039 
SAT10 4.1 8.3 76 0.5 20 0 1030 
SUN11 Be 10.6 59 0.2 22 0.4 1027 
MON12 4.2 8.6 74 3.9 25 1.5 1020 
TUE]3 2.5 6.7 60 0.02 3) 0.4 1022 
WED14 3 10.1 51 0 24 8.5 1015 
THUS L8 6.6 70 0 29 0.7 1015 


1.2 Random-access to the RAM-bank 


AMSDOS does not provide genuine random-access to files; but it does allow 
you (on the CPC 6128) to simulate random-access files using a spare 64K of 
memory known as the RAM-Bank. 


7.2.1 Getting into the bank 


Before you can use the RAM-bank as a kind of file, you must run a program 
provided on the system disc called BANKMAN (the ‘Bank Manager’). Then 
you can use the extra commands BANKOPEN, BANKREAD, BANKWRITE 
and BANKFIND. 

To start using a file in random-access mode you first have to copy it from 
disc into memory. (And don't forget to copy it back afterwards to disc if you 
have made changes.) Then you can treat the memory-resident copy as a 
random-access file. 

When regarded as a file, the 64K in the RAM-bank is divided into a 
number of records. Each record has a fixed length of 1 to 255 characters, 
though 2 is recommended as a minimum. To establish the record length, you 
put the command 


|BANKOPEN; size 


into your program. This, in effect, opens the RAM-file and sets the record 





128 | | FILES 








length to ‘size’ - an integer expression. You can now put data into the 
RAM-bank at any given location and get them out again from any location. 

The RAM disc is primarily for random-access, but AMSDOS maintains a 
current-record pointer which is advanced by each read or write operation. 
This makes it easy to do sequential access too. 


17.2.2 BANKREAD and BANKWRITE 
To write data into the RAM-file, use the command 
|BANKWRITE, @code,datatext [,position] 
where the arguments are as follows: 


code is a variable to receive the AMSDOS error signal which is — 1 if 
the record is beyond the end of the RAM-bank or —2 if 
something else goes wrong; 

datatext is the string data to be written; 

position specifies the record number. 


The ‘position’ parameter is optional. 
To read data from the RAM-file, use the command 


|BANKREAD, @code,datatext [,position] 
where the parameters are the same as for BANKWRITE. Thus 
|BANKWRITE, @flag% ,“Text”,99 


puts “Text” into the 99th record of the RAM-file and returns — 1 or —2 in flag% 
if something goes wrong. Similarly 


|BANKREAD, @flag% ,text$,p% 


gets the string data from position p% of the RAM-file (or sets flag% to —1 or 
—2 if it fails for some reason). 

If the string data in a BANKWRITE command does not fill the whole 
record, old characters will be left lying around at the end of the record. Ifa 
BANKWRITEstring is too long to fit in a record, it will be truncated to prevent 
it overflowing into the next record. The same applies, in reverse, with 
BANKREAD, which cannot extend the current length of its string argument 
(datatext). It is a good plan, therefore, to pad out or truncate your strings so 
that they are exactly the right length before using BANKREAD or 
BANKWRITE - ie. the same size as the record-length specified in 
BANKOPEN. 

Note that the record numbers are counted from zero, and that if you omit 
the position parameter, the next record will be selected. This makes 
sequential processing easier. 
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Note also that these are AMSDOS extended commands, not normal Basic 
instructions. You must 


RUN “BANKMAN” 


with side 1 of the system disc inserted prior to using them. 


7.2.3 Finding your way around 


Normally you will think of your files as composed of records; and, to keep 
things simple, the records will usually be of fixed length. 

Thus if we refer back to our weather-data file in Section 7.1.7, each record 
contains the information relating to one day. The record structure is as 
follows. 








Name Type 
dayname$ string 
mintemp floating-point 
maxtemp floating-point 
humidity floating-point 
rainfall floating-point 
maxgust floating-point 
sunshine floating-point 
pressure% integer 





But AMSDOS insists that each record of the RAM-file is a single string. This 
makes it awkward to use the RAM-bank for collections of mainly numeric 
data. 

One way round the problem is to use STR$ to turn numbers into strings and 
then pad them out to a fixed length. Then several numbers can be stored as 
several AMSDOS records. This means that more than one physical record 
will be used to hold one logical record. It is a little messy, but it works, as 
shown by the example program (Listing 7.4), e.g. line 1100. 


7.2.4 Free banking 


The BANKFIND command is useful for searching through the RAM-file, 
faster than would be possible in a Basic program. Its form is 


|BANKFIND, @code,datatext [,firstrec [,lastrec]] 


where ‘code’ is a variable to receive the AMSDOS return code and ‘datatext' 
is the string being sought. The optional ‘firstrec’ and ‘lastrec’ parameters give 
the positions for the beginning and end of the search, if desired. 

The return code will be the record number where the string was found, if 
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the search is successful. If the search fails it will return —3 if the string could 
not be found: —2 if there was a system error; and —]1 if the starting record is 
beyond the end of file or greater than the ending record number. 

Thus 


|BANKFIND, @code%,“target”,a% ,a% +20 


would scan RAM-file records a% to a%+20 inclusive looking for the 
character string “target” and set the integer variable code% to the location 
where it was found, or to a negative number if it was not found. 


1.3 Example program [GOLFERS] 


Our example program implements a simple golf-club handicapping system, 
according to the standard scratch scoring scheme adopted in the UK in 1983. 
It is not a complex application, but it ought to give you an insight into practical 
data processing. 

The main file contains details of golfers and their handicaps. The record 
format is outlined below. 





Field Type 





name$ string 
handicap _ floating-point 





At the start of the program the data on file are copied into the RAM-bank for 
random-access processing (subroutine 1000). At the end they are copied out 
again (subroutine 3000). 
To work correctly each player should have (or be given) a unique name. 
The program can do four things: 


(1) Create a new player; 
(2) Delete an existing player; 
(3) Show a player's handicap; 


(4) Revise a player's handicap 
(given that player's latest score). 


You will see that the main line of the program is simply a loop that lets the 
user choose one of these options and calls the appropriate procedure to 
carry it out. (This example will only work with disc-based systems.) 

For non-golfers, a few words of explanation may be useful. (Golfing freaks 
can skip straight to the listing.) 

Golfers all have ‘handicaps’ to enable players of different strengths to 
compete together. A handicap is a number of strokes. If I have a handicap of 
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20 and go round in 85 strokes and you have a handicap of 10 and go round in 
80 then I beat you (on handicap) by 5 strokes. 

The handicap is the number of strokes above ‘par’ which the player is 
expected to require. Thus if par for a course is 72 and your handicap is 12 
then you would be expected to take 84 strokes to play a round on that course. 

There are strict rules governing the revision of handicaps which attempt 
to ensure fair play. These are incorporated into the program below. 
Essentially your handicap goes down when you do well and up when you do 
badly. However it tends to go down faster than it goes up! 

If you play worse than expected (i.e. your actual score is more than par 
plus your handicap) you add 0.1 to your handicap if it is less than 5.5; 
otherwise you add 0.2 to it. So a player with an exact handicap of 7.8 who shot 
an 88 ona 75-par course (13 over par) would go up to 8. In fact, any score over 
83 would raise the handicap by the same amount. Since exact handicaps are 
always rounded up to the nearest whole number for playing purposes, this 
rise from 7.8 to 8.0 would not affect the next game. 

If you play better than expected, the system is a bit more complicated. 
Assuming your handicap is greater than zero, it will be adjusted downwards 
in the following manner. 

First you work out the differential between your expected score (par + 
handicap) and the actual score. Let us say you shot 80 on a 72-par course and 
your handicap was 15. Your differential is 7 (= 15 — 8). 

Now you look in the table below 





Handicap category Adjustment rate 





0 to 5.4 0.1 
5.5 to 12.4 0.2 
12.5 to 20.4 0.3 
20.5 and above 0.4 





and subtract the adjustment figure for each stroke of the differential. Thus 
your handicap would go down by 7 * 0.3 from 15 to 12.9. 

There is one further complication. When a player's handicap is reduced 
so that it goes from a higher category to a lower category (e.g. from 12.6 to 
12.3), it is reduced at the rate for the higher category only so far as to bring it 
into the lower category; any remaining reduction is made at the rate for the 
lower category. Thus for a player on 13 who shoots 8 over par, giving a 
differential of 5, the first two strokes’ deduction are at the 0.3 rate (down to 
12.4) and the rest are at the 0.2 rate (down to 11.8). This is taken care of bya 
loop in the routine on lines 2570 to 2640 of the program. 

Well, don't blame us: we didn't invent this scheme. Just park yourself at the 
19th hole and leave it to the computer! 
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Listing 7.4 Golf-club handicapper 








10 REM BERR KR RK KKK KKK KEK KEKE KKK KKK EK 


11 REM ** Listing 7.4 : belied 
12 REM ** GOLF-CLUB HANDICAPPER ak 
15 REM BERR KKRKKKEKKEKKKKKKKKKEKKKKKKK KKK 
20 REM -- Must RUN "BANKMAN" first. 

50 ON ERROR GOTO 500 : REM error trap 
60 : 

100 REM -- GOLFERS: 

101 ouch%=0 : REM 8=printer, O=screen. 
110 MODE 1 : BORDER 15 

120 recsize%=24 

125 gaps$=SPACES (recsize$) 

130 chan%=9 

140 INPUT "File Name "; f£$ 

150 OPENIN f$ 

160 GOSUB 1000 : REM load data from file 
170 PRINT: PRINT "Data from file : ";f$ 
180 command%=99 

190 REM -- Main Loop: 

200 WHILE command’ <> 0 

210 GOSUB 1200 : REM menu 

220 IF command%=1 THEN GOSUB 1500 
230 IF command%=2 THEN GOSUB 1700 REM old player 

240 IF command%=3 THEN GOSUB 2000 REM show player 

250 IF command%=4 THEN GOSUB 2300 : REM handicap 

260 GOSUB 2200 : REM pause 

270 WEND 

280 CLOSEIN 

300 GOSUB 3000 : REM write data back out 

320 PRINT: PRINT "Bye!" 

330 END 

333% 

500 REM -- error trap section: 

510 IF ERR=32 AND ERL=150 THEN GOSUB 600 ELSE ON ERROR GOTO 0 
530 RESUME 150 : REM resume 

550 : 

600 REM -- create new file (lst time only): 

605 n$=gaps$ 

610 OPENOUT f$ 

615 WRITE#chan%, n$,-99 

620 CLOSEOUT 

630 RETURN 

650 REM contains one dummy record. 

660 : 

1000 REM -- Data input routine: 

1010 recs%=0: r%=0 

1020 |BANKOPEN, recsize% 

1040 WHILE NOT EOF 

1050 INPUT#chan%, name$,h 

1060 h$=LEFTS$ (STR$ (h)+gaps$,recsize$) 

1070 name$=LEFTS (name$+gaps$,recsize$) 


REM new player 


ae ee oe 


1080 | BANKWRITE, @r$,name$ 
1090 IF r%=-1 THEN PRINT "UGH!" 
1100  |BANKWRITE,@r%,h$ 


1110 IF r%=-l OR r%=-2 THEN PRINT "EH!?": STOP 
1120 recs%=recs%+2 

1130 WEND 

1140 CLOSEIN 

1150 PRINT recs%/2;"items read from file ";f$ 
1155 PRINT "Press any key to go on :" 
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1156 
1160 
1170 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1313 
1320 
1330 
1340 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1595 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1695 
1696 
1699 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1765 
1770 
1780 
1788 
1790 
1800 
1810 
1820 
1850 
1860 
2000 
2010 
2020 
2030 


cS=INKEY$: IF c$="" THEN GOTO 1156 
CLEAR INPUT: RETURN 


REM -- Menu subroutine: 

CLS: PRINT 

PRINT TAB(16);"Options:" 

PRINT TAB(16) ;"========" 

PRINT TAB(16);"([";£S;"]" 

PRINT 

PRINT "1 .... Add a new player" 

PRINT "2 .... Delete an old player" 
PRINT "3 .... Show a player’s details" 


" 


PRINT "4 .... Revise a player’s handicap 
PRINT: PRINT "No. of option (0 to quit) : "; 


cS=INKEY$: IF c$="" THEN GOTO 1310 
command%=ASC(c$)-48 

PRINT c$ 

RETURN 

REM -- New-player routine: 

PRINT: PRINT "Adding new player:" 


at%=-l : p%=0 
WHILE at%<0 AND p%<recs% 
BANKREAD, @r%,name$, p% 
BANKREAD, @r%,h$,p%+1l 
IF r%<0 THEN PRINT "Gasp": STOP 
IF VAL(h$)<0 THEN at%=p% 
p%=pt+2 
WEND 
IF at%<0 THEN at%=recs%: recs%=recs%+2 
REM -- Insert at at%: 
h=-99 : name$="" 
WHILE (h<0 OR h>36) OR name$="" 
LINE INPUT "Player’s name: ", name$ 


LINE INPUT "Handicap is : ", h$ 
name$=LEFTS (name$+gaps$,recsize$) 
h=VAL (h$ ) 

WEND 


GOSUB 4000 : REM write a record 
PRINT "inserted at location ";at% 
RETURN 


REM -- Record-deletion routine: 
PRINT: PRINT "Record deletion:" 
GOSUB 5000 

GOSUB 4400 : REM show it 

PRINT "OK to delete it (Y=Yes) "; 
c$=INKEY$: IF c$="" THEN GOTO 1750 
ok%=(cS="Y") OR (c$="y") 


PRINT c$ 

IF NOT ok% THEN PRINT "Not erased.": RETURN 
REM -- mark as dead with -ve handicap: 
PRINT 

h=-99 

GOSUB 4000 : REM write record 


PRINT "Player ";name$;" erased." 
GOSUB 2200 : REM delay 


RETURN 
REM -- Show-details routine: 
PRINT: PRINT "Show details for player:" 


GOSUB 5000 : REM -- get record number 
IF at%<0 THEN PRINT "Sorry!": RETURN 





134 | 


FILES 





2040 
2050 
2060 
2070 
2080 
2200 
2202 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2475 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 


IF at%>recs% THEN PRINT "Sorry!": RETURN 
GOSUB 4400 : REM display routine 


GOSUB 2200 REM wait 
RETURN 
REM -- Delay routine: 
REM uses w%, wS 
w%=0 : w$="" 
WHILE w%<222 AND wS$="" 
wS=INKEYS 
wt=w%+]1 
WEND 
RETURN 
REM -- New-handicap routine: 


PRINT: PRINT "Revision of handicap data:" 
GOSUB 5000 : REM get record 

GOSUB 4400 : REM display it 

PRINT "OK to alter handicap ? "; 
CS=INKEY$: IF c$="" THEN GOTO 2350 
ok%=(c$="Y") OR (c$="y") 

IF NOT ok% THEN RETURN 

IF h<0 THEN RETURN : REM dud record 
PRINT 

INPUT "Latest score was : ", S 

INPUT "Par for the course:", p% 

s = INT(s-p%) : REM difference from par 
GOSUB 2500 : REM compute new handicap 
PRINT: PRINT "New handicap for ";name$ 
PRINT h;" (playing off ";INT(h+0.5);")" 
GOSUB 4000 : REM write it. 

PRINT "Press any key to go on:" 
c$=INKEY$: IF c$="" THEN 2475 

RETURN 


REM -- Handicap-revision routine: 
dad = s - INT(h+0.5) 
IF d=0 THEN RETURN 
IF d>0O AND h<=5 THEN h=h+0.1: RETURN 
IF d>0 AND h>5 THEN h=h+0.2: RETURN 
REM -- gets here if better than usual: 
IF h<=0 THEN h=0: RETURN 
WHILE d < 0 

x = 0.1 

IF h > 20.4 THEN x=x+0.1 

IF h > 12.4 THEN x=x+0.1 

IF h > 5.4 THEN x=x+0.1 

h=h-x 

a=dat+il 
RETURN 
REM with h as new handicap. 
REM -- Write-file routine: 
p%=0 
OPENOUT f£$ 
WHILE p%<recs% 

BANKREAD, @r%,name$, p% 
BANKREAD, @r%,h$,p%+1 

IF r%<0 THEN STOP 

h=VAL (hS ) 

WRITE#chan%, name$,h 

ps=pst2 
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3100 
3110 
3120 
3130 
3140 
3150 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4200 
4210 
4215 
4220 
4230 
4240 
4250 
4260 
4270 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
5000 
5010 
5020 
5030 
5040 
5044 
5050 
5060 
5070 
5080 
5090 


WEND 
CLOSEOUT 
PRINT recs%/2;" items dumped to ";f$ 
PRINT 
RETURN 


REM -- Write-record routine: 

REM puts name$,h at at% 

hS$=LEFTS (STRS$ (h)+gaps$, recsize$ ) 
| BANKWRITE, @r%,name$,at% 
BANKWRITE, @r%,h$,at%+1 

IF r%<0 THEN STOP 

RETURN 


REM -- Read-record routine: 
REM gets name$,h from at% 
name$=gaps$ 
BANKREAD, @r%,name$,at% 
BANKREAD, @r%,h$,at%+l 
IF r%<0 THEN STOP 
h=VAL(h$ ) 
RETURN 
REM -- record-display routine: 
REM shows record at at: 
GOSUB 4200 
IF h<0 THEN PRINT "EMPTY RECORD! ": RETURN 
PRINT 
PRINT "Player name : ";name$ 
PRINT "Handicap is : ";h 
PRINT "Playing off : ";INT(h+0.5) 
PRINT 
RETURN 


REM -- Routine to get record-number: 
PRINT: ok%=0 
WHILE ok%=0 
INPUT "Record number "; n% 
IF n%>=0 AND n%<recs% THEN ok%=1 
IF n% MOD 2 = 1 THEN ok%=0 
IF ok%=0 THEN PRINT "Please try again!" 
WEND 
at%=n% 
RETURN 


The program structure is quite straightforward. This is a simple, 
menu-driven, file access program. The top-level procedures are as follows. 


600 

1200 
1500 
1700 
2000 
2300 


Initializes a file the lst time it is used. 
Displays the user's options. 

Adds a new player's details to file. 
Deletes a player from the file. 

Displays details about any player. 
Revises a player's handicap after a game. 


The file has room for up to 200 records. Since golf handicaps can never be 
below zero, a negative number is used to mark a record as empty. This is 


also used by subroutine 1700 to indicate a deleted record. 
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The lower level utility routines are as follows. 


4200 Reads a given record from file. 

4000 Writes out player details file. 

4400 Shows a given record's contents on screen. 

5000 Asks user for a selected record number 
(and checks for valid input). 

2200 Introduces a delay, before clearing screen. 


By encapsulating the file-handling in routines, we make it relatively easy to 
make alterations in the data structure. For instance, we could change the size 
of the records or the number of fields just by modifying subroutines 4000 and 
4200. 

If you want to see the clever bit — the part that updates players’ handicaps-— 
look at the subroutine on line 2500 onwards. It is worth noting how small the 
calculation section is, compared to the rest of the program which only exists 
to make those calculations obtainable. That is the way of data processing; the 
computational parts, although essential, form a trivial proportion of the 
eventual code. 


7.4 Exercises 


1, Using the March 1984 data shown in Section 7.1, write a program that 
reads such a file and calculates the averages for all its numeric fields. These 
are: mintemp, maxtemp, humidity, rainfall, maxgust, sunshine and 
pressure%. (The last one is an integer.) 

Temperatures are in degrees Celsius; humidity is a percentage; rainfall is 
measured in mm; maximum wind gust is in knots; sunshine is in hours and 
pressure is in millibars. If you are keen, you can obtain more data from the 
London Weather Centre in High Holborn, WC1V 7HX. 


2. Write a program to read a text file and count the number of characters 
and the number of words. 

A word can be defined, for our purposes, as any sequence of letters, digits 
and hyphens beginning with a letter. You will probably find it convenient to 
have a logical variable called ISINWORD% which is FALSE to begin with 
and changes from FALSE to TRUE on encountering a letter (either in upper 
or lower case). It will change from TRUE to FALSE when the program reads 
a character other than a letter, a digit or a hyphen (‘-'). On every transition 
from FALSE to TRUE, it should increment the word counter. Counting 
characters is easy. 

FALSE and TRUE can be represented as 0 and 1. 

This program could be useful if your word processor does not have an 
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automatic word-count facility — especially if, like us poor freelance 
journalists, you are paid by the word! If your word processor does have a 
word counter, you can compare them both on the same file and ponder why 
they give different answers. (They give the same results? I beg your pardon. ) 


3. Enhance the previous program by making it count sentences as well. 
You can define sentences how you like; but asequence ofa letter, one of'’, '?’ 
or '', and then a non-letter might do to start with as an indicator of the end ofa 
sentence. 

A further improvement would be to calculate and print the average 
number of characters per word and the average number of words per 
sentence. 


4. It is often useful to have a menu program which runs another program 
(using the CHAIN statement) chosen by the user from a list of options. The 
program clears the screen and displays a list of options, rather like that 
below. 


A. LIST Lists a data file. 

B. SORT Sorts a data file into order. 
C. KILL Deletes a data file. 

D. ZONK Does something clever. 


All the user has to do is press the single letter (A, B, C, D) corresponding to 
his or her choice and that program will be CHAINed into action. 

Write a general-purpose menu program to do this task. It should allow up 
to 26 choices which are read from DATA statements. For the four options 
shown above, for instance, the data would be as listed below. 


9000 DATA 4 

9010 DATA LIST, Lists a data file 

9020 DATA SORT, Sorts a data file into order 
9030 DATA KILL, Deletes a data file 

9040 DATA ZONK, Does something clever 


5, Write a program to sort the records of the golf-club file into ascending 
order of player name. You can assume that there are no more than 200 
entries on the file and read them all into a pair of arrays for sorting in 
memory. Once sorted, they can be written out to file again in the correct 
order. They could also be listed on the printer in alphabetical order, which 
would considerably ease the life of any golf-club secretary brave enough to 
try using this system. 

A suitable algorithm is the Shell sort, for which a pair of routines are given 
below. 





iss || 








| Listing 7.5 Shell sort 











10 REM 
11 REM 
12 REM 
15 REM 
60 

100 
101 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
300 
320 
330 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
520 
550 
800 
810 
820 
830 
840 
850 
860 
870 
880 


RE 
ou 
MO 
IN 
DI 
FO 


RE 
GO: 
PR 
PR 
FO 


PR 
EN 
RE 
RE 
ms 
WH 


RE 
RE 
rs 


RE' 
RE 


Al 
P8 
co 
H5 
R8 
w9 
C7 
D4 


KRREKKKEKKKKEKEKEKKKKKKKKKKKKKKKKKKK 
** Listing 7.5 ee 


** SHELL SORT ee 
FRI IIIT OITA IOI Ke 


M -- Shell-sort demonstration: 
ch%=8 REM 8=printer, 0=screen. 
DE 1 BORDER 15 

PUT "How many items "; 
M name$(n%), h(n$%) 

R i=l TO n% 

aS=CHRS (65+INT(RND*26) ) 
bS=CHRS (48+INT(RND*10) ) 
name$ (i%)=a$+b$ 
h(is)=i% 

PRINT #ouch%, a$;b$ 
NEXT if 

M -- random data just to test sort. 
SUB 400 : REM sort them out 

INT #ouch$% 
INT #ouch$%, 
R i=l TO n% 
PRINT #ouch3, 
NEXT if 

INT #ouch% 

D 

M -- reader must modify to read & write file. 


ns 


"For";n%;"items, order is:" 


name$ (i%),h(i%) 


M -- Shell-sort subroutine: 
ng 
ILE m% > 1 
m% INT(m% / 2) 
IF m% MOD 2 0 THEN m%=m%-1 
FOR i%=m%+l TO n% 

FOR j%=i% TO m%+l STEP -m% 


IF name$(j%)<name$ (j%-m%) THEN GOSUB 800 ELSE j%=0 


TURN 


M -- swap routine: 
=j%-ms 


t=h(j%): h(j%)=h(r%): h(rs)=t 
temp$=name$ ( 4%) 

name$ (j%)=name$ (r%) 

name$ (r%)=temp$ 


TURN 
M uses t,tempS,r%, j% 
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Y2 

T7 

B3 

E7 

N6 

B5 

Al 

P8 

T4 

L6 

I5 

18 

J4 

D6 

For 22 items, order is: 
Al 1 
Al 15 
B3 LL 
B5 14 
co 3 
C7 Z| 
D4 8 
D6 22 
E7 12 
H5 4 
TS: 19 
I8 20 
J4 21 
L6 18 
N6 13 
P8 16 
P8 Z 
R8 5 
T4 Vy: 
T7 10 
w9 6 
Y2 9 


Note that lines 120 to 200 were inserted merely to test the sorting 
procedure. You are asked to replace them with your own main program. 

If you have time, you should incorporate the sorting module into the 
GOLFERS program (Listing 7.4) as an extra option. 


6. One serious problem with the golf-handicapping program (Listing 7.4), 
even if the names are sorted, is that the user has to specify records for 
updating, deletion or display by number. On top of this, the user has to 
remember that record numbers go up two at a time. 

It would be far easier if you could specify records by the name of the 
player concerned. Amend the record-selection routine, line 5000 forwards, 
so that the user gives a name, rather than a number, and the program uses 
BANKFIND to search through the RAM-file to find the number of the record 
containing that name. If no such name is found, it should ask the user to try 
again. 
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Now, after completing exercises 5 and 6, you actually have a useful 
program. 


7. Write a bank account balancing program which maintains a file of 
cheques, standing orders, in-payments and other transfers so that at any time 
it can tell you your balance — or the size of your overdraft! 


8 
Advanced topics 


THE PLOT THICKENS 


There is a good deal more to the Amstrad range of computers than meets the 
eye at first glance. Our book is firstly about Basic programming, and only 
secondarily about the Amstrad, so we do not have space to do more than 
scratch the surface of its advanced features. Indeed the proper study of 
Amstrad Basic's sound and graphic facilities merits an entire book on each 
subject — and the titles of some are mentioned in the Bibliography. 

However, we hope in this short chapter to explore some of the possibilities 
and stimulate some lines of future exploration. 


8.1 Further graphics 


There are three display modes on the Amstrad computer, selected by the 
MODE instruction. Each mode is characterized by its text and graphic 
resolution and its colour range. The screen resolution is the total number of 
individual points on the screen — called ‘pixels’ — that can be addressed. Text 
resolution refers to the number of rows and columns of characters that can be 
written to the screen. This table shows the attributes of each mode. 








160 x 200 20 x 25 16 
320 x 200 40 x 25 
2 640 x 400 80 x 25 2 


i Mode Graphic res. Text res. Colours 
0 
1 





In all screen modes the graphics screen is addressed as though it has 400 
vertical positions and 640 horizontal ones, but in modes 0 and | the resolution 
is not so fine — ie. the lines are broader and the points are thicker. 
There are 27 colours to choose from but a maximum of 16 (in mode 0) may 
be selected at one time. In mode 2, only two colours may be active. So you 
pay for high resolution with loss of colour. In fact mode 2 is best thought of as 





142 | | ADVANCED TOPICS | 





the text-processing mode: you can fit 80 characters on a line for professional 
word processing and the like, but if you want pictures they have to be 
two-tone. 

We have already begun to use some of the more primitive graphical 
facilities in earlier chapters. Let us recap on these basic capabilities before 
going deeper into Amstrad graphics. 

We have used MODE to select screen-mode, purely to adjust the width of 
text lines. A MODE instruction has the side-effect of clearing the screen, but 
it is also possible to clear the screen with CLS, without changing mode. 

Strictly speaking CLS clears the text screen only. There is a second 
screen, superimposed on the first, called the ‘graphics screen’ which can be 
cleared with the CLG instruction. So far we have not used the graphics 
screen at all. 

We have, however, used the border instruction to surround the text 
screen with a contrasting colour. Its form is 


BORDER colour! [,colour2] 


where ‘colour’ denotes an integer expression in the range 0 to 26. This fills 
the area around the screen with the colour given. The master list of colour 
numbers is printed on the CPC 6128 itself. (See also the inside back flap of 
this book.) If the ‘colour 2’ parameter is present also, you get flashing colours: 
the two colours alternate. If you want to play with the rate of alternation, have 
a look at the SPEED INK instruction. 

Finally we have used the LOCATE statement to achieve primitive ‘block 
graphics' on the text screen — for instance, in Listing 6.6. The general form of 
this instruction is 


LOCATE [#chan,] x,y 


where ‘chan’ is a channel or window number and ‘x’ and 'y' give horizontal 
and vertical positions, measured from the top-left of the screen (which is 
position 1,1) in character units. Thus the y-coordinate is counted downwards: 
it refers to depth, not height. If the window specification is omitted, channel 0 
is used, which is the whole screen. 


8.1.1 Pen, ink and paper 


We cannot go any further without explaining Amstrad'’s colouring scheme. 
As stated earlier, there are altogether 27 colours in the ‘palette’ — for example, 
by reference to the Master Colour Chart on your machine or on the back flap 
of the book, you will see that colour 12 is yellow, colour 22 is pastel green and 
so on. However, you can use at most 16 of these hues at any one time. In 
Amstrad terminology, you have 27 ‘colours’ but only 16 ‘inks’. Going one step 
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further, in mode 1 (for example) you have only 4 different ‘pens’. Let us see 
how the colour/ink/pen relationship works in practice. 

Suppose we use MODE 1 to select a four-colour mode. Then by consulting 
the table of default ink settings (also on the back flap of this book) you will see 
that pen 3 is filled with ink 6 —i.e. bright red. (So, incidentally are pens 7, 11 
and 15: the four colours are repeated four times over.) 

But we can alter this state of affairs by a command like 


INK 3,11 


which puts ink 11 (sky-blue) into pen number 3. The INK command takes the 
general form 


INK inkcode,huecode [,flashhue] 


where ‘inkcode' is an expression in the range 0 to 16 indicating one of the 16 
notional pens, and ‘huecode'’ is a colour number in the range 0 to 27 from the 
master colour chart. The optional ‘flashhue’ parameter is a second colour 
code in the range 0 to 27: the two colours will alternate if this is present, ata 
rate determined by the SPEED INK instruction. 

Having filled our pens, we can put them to paper (well, glass actually) with 
two further instructions, PEN and PAPER. 

The form of the PEN instruction is 


PEN [#chan,] [inkcode] [,backmode] 


where ‘chan’ is an optional window specifier. Either of the last two 
parameters may be omitted, but not both. The first, ‘inkcode’, selects the hue 
from the range 0 to 16, as assigned using INK (above) or by default (see back 
flap). The second governs whether the background will be transparent or 
opaque when drawing with this pen. Thus 


PEN 3 


selects the pen number 3 for the foreground colour until de-selected. Since 
no window is specified, this applies to the main screen display. 

PEN selects the foreground colour. PAPER can be used to change the 
background colour. The form of the PAPER instruction is 


PAPER [#chan,] inkcode 


where ‘chan’ specifies a window, as above. If it is absent, as is the normal 
case, the main screen (window 0) is selected. The ‘inkcode' is one of the inks, 
in the range 0 to 16, as set by INK or by default. So 


100 MODE 0: PEN 0: INK 0,15 
110 FOR p%=1 TO 15 

120 PAPER p% 

130 PRINT “Paper”;p% 
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140 wS=INKEY$: IF w$="" THEN GOTO 140: REM wait 
150 NEXT p% 
200 END 


runs through the spectrum of background colours, pausing after each one. 
The foreground colour, ink, zero, remains constant (orange, in fact). 

All this discussion has applied, so far, to the text screen — ie. to the 
foreground and background colours used for displaying text. There are two 
further instructions, however. 


GRAPHICS PEN 
and 
GRAPHICS PAPER 


which have the same format as the text versions PEN and PAPER (without the 
window-specifier options) but which apply to the graphics screen. Thus the 
foreground and background colours for drawing and plotting can be set 
independently from those for printing characters. E.g. 


GRAPHICS PAPER 7 
selects ink 7 (bright magenta by default) for the graphics background. 


8.1.2 Lines and dots 


To draw lines and shapes, we use three further instructions MOVE, DRAW 
and PLOT. This at last brings us into the realm of true graphics. 
The MOVE statement has the form 


MOVE x,y [,inkcode] 


where ‘x’ and 'y’ are the horizontal and vertical coordinates, while ‘inkcode’, if 
present, selects a new graphics foreground colour (range 0 to 16). The xand 
y axes of the graphics screen are measured from the bottom left, so this time 
y means height rather than depth (unlike the text screen where the vertical 
coordinate is measured downwards). The bottom left-hand corner of the 
screen is at position 0,0 and the top right is located at 640,400 in all modes. 
Thus 


MOVE 320,200 


positions the graphics pen in the centre of the screen; but it does not do any 
plotting. 
To make a mark, you use the DRAW command, whose form is 


DRAW x,y, [,inkcode] 


which draws a straight line from the current x/y position to the x/y position 
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given in the instruction. Optionally, the ‘inkcode’ parameter may be used to 
alter the graphics foreground colour. For example 


200 MOVE 0,400 
220 DRAW 640,0, INT(RND*16) 


moves the graphics pen to the top left of the screen (in line 200) and then 
draws a diagonal line to the bottom right-hand corner (in line 220). The 
colour of this line is randomly selected from the 16 inks; so if it just happens to 
be the same as the background colour, the line will be invisible. 

The third of our genuine graphics commands is PLOT. This is used to plot a 
single point on the screen. Its form is 


PLOT x,y [,inkcode] 


where the parameters are as before. Its effect is to move to a particular x/y 
position on the screen and put a single point, or pixel, there in the graphics 
foreground colour. Thus 


PLOT 320,200,2 


switches on the point in the middle of the screen to the hue of ink number 2. 
Listing 8.1 shows these graphics instructions in action. 





Listing 8.1 Starburst 








10 REM BERK K RR KK KK KK EKKKKKKKKK KK KK KEK 


11 REM ** Listing 8.1 : xe 
12 REM ** STARBURST ak 
15 REM KRKEKKKKEKEKKEKKKKKKKKKKKKKKKKKKKKE 
60 : 


100 REM -- Random Star: 
110 MODE 0: BORDER 16 
120 CLS 

130 RANDOMIZE TIME 
140 star%=RND*24+4 
150 FOR s%=l TO star% 
160 c%=INT(RND*16) 
170 h%=INT(RND*640) 
180 v%=INT(RND*400 ) 
190 MOVE 320,200 
210 DRAW h%,v%,c% 
220 NEXT s% 

300 END 


This little program goes round a loop within which it selects a random 
colour, and random horizontal and vertical coordinates. Having chosen 
them, it MOVESs to the centre of the screen and DRAWSs a line in the hue 
selected to the position given by h% and v%. The effect is to produce an 
explosion of coloured lines, like a firework. Try it. 

The instructions DRAW, MOVE and PLOT are called ‘absolute’ plotting 
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instructions. They refer to points by addressing the 640 x 400 pixels on the 
screen. In contrast the related instructions DRAWR, MOVER and PLOTR 
are ‘relative’ plotting instructions. Instead of giving the absolute address of a 
point on the screen, they refer to points by their distance from the current 
position. For example, 


200 DRAWR size%,0 
220 DRAWR 0,size% 
240 DRAWR -size%,0 
250 DRAWR 0,-size% 


draws a square box on the screen with the sides of length size% units. The 
exact position of this box is relative to the last point plotted. 


8.1.3 Filling in the outlines 


The instructions we have considered up till now can be used to draw 
outlines. The FILL command enables us to fill those outlines with colour, thus 
achieving solid shapes without the tedium of PLOTting hundreds of 
individual points. Its format is 


FILL inkcode 


where ‘inkcode' is an expression in the range 0 to 16 for picking the hue. Its 
effect is to fill in, from the graphics cursor position, the area bounded by an 
enclosing shape. It fills till it reaches any boundary of the following three 
kinds: (1) the edge of the screen, or (2) a line in the graphics foreground 
colour, or (3) a line in the colour being used for filling. 

Note that you must take care to move inside any outline to be filled, e.g. 
with MOVE; and if the shape is not closed the colour ‘leaks out’, 

The following example, demonstrates FILL in use. It draws a cluster of 
variously coloured balloons. 





Listing 8.2 Coloured balloons 











10 REM BRR RKKKKKKEKKKEKEKKEKKEKEEKKKKKKKE 


11 REM ** Listing 8.2 : ae 
12 REM ** COLOURED BALLOONS badiad 
15 REM KKEKKKEKEKKKKKKKEKKKKKKKKKKKKKKKKK 
60 : 


100 REM -- Cirles and ellipses: 
110 MODE 1: BORDER 7 

120 CLS 

130 RANDOMIZE TIME 

140 circles%=RND*16+4 

144 turn=RND*2 

150 FOR n%=1 TO circles% 

160 c$=INT(RND*3)+1 

170 h%=INT (RND*640 ) 

180 v%=INT(RND*400) 
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190 warp=INT(RND*20)+25 

200 GOSUB 1000 : REM draw oval 

220 NEXT n$& 

300 END 

330 : 

1000 REM -- Circular Routine: 

1010 MOVE 128,0 : REM bottom left 

1020 up=v%: ac=h% 

1030 DEG 

1035 DRAW ac,up-warp,c% 

1040 FOR circ%=0 TO 360 STEP 10 

1050 up=warp*SIN(circ%): ac=44*turn*COS (circ) 
1055 IF circ%=0 THEN MOVE acth%,uptv% 
1056 DRAW acth$%,uptv%,c% 

1070 NEXT circ’ 

1080 MOVE h%+1,v%+l: FILL INT(RND*4) 
1100 RETURN 

1110 : 


The subroutine at line 1000 onwards is the balloon-maker. Line 1010 
moves to the bottom of the screen, slightly off-centre to the left. Line 1035 
draws the ‘string’ of the balloon in the colour selected in the main program. 
Lines 1040 to 1070 plot an approximately oval shape by a series of 
straight-line segments. Unlike some microcomputers, the Amstrad has no 
built-in circle or arc commands; so this is the only way to make curves. 
Finally, line 1080 fills the balloon just drawn with a randomly chosen colour. 
(Actually, because of the rules of FILLing, it may halt before it reaches the 
edge of the oval shape because it hits the edge or string of an overlapping 
balloon.) 

Despite the program's simplicity, the resulting images are quite pleasing 
to the eye; and because of the element of randomness, they never quite 
repeat themselves. (Line 130, in case you are wondering, resets the 
random-number generator.) 

The variables warp and turn determine whether the ovals will be short 
and fat or long and thin. If you want to know more, mug up a geometry 
textbook on ellipses. 

One further command before you embark on your own image-making 
projects: ORIGIN. The normal graphics origin (zero point) is position 0,0 at 
the bottom left, as already stated. But by giving a command such as 


ORIGIN xbottom,ybottom 


you can reset it to the location specified by the two variables concerned. 
Subsequent plotting then takes place by reference to the new origin. (There 
are actually four other optional parameters to this instruction, for setting up a 
graphics window: see Appendices for more details.) 
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8.1.4. A picture emerges 


There is a lot more to graphics on the Amstrad than we have room for here. 
You now have an ‘explorer's kit’ for this picturesque territory, but it is only fair 
to remind you what we have left out in the interests of brevity. 

The following graphical keywords have not been covered in this section at 
all. 


MASK 

SPEED INK 

SYMBOL, SYMBOL AFTER 
TAG, TAGOFF 

TEST, TESTR 

XPOS, YPOS 


The budding graphics programmer would be well advised to practise the 
fundamental instructions already presented, then look up some of the 
missing ones either in the Appendices to this book or in the User Instructions 
manual. 


8.2 The sound of muzak 


Sound output on the Amstrad is controlled by the SOUND instruction and 
modulated by two envelope commands (ENV for volume envelopes, ENT for 
tone envelopes). 


8.2.1 The SOUND instruction 
The SOUND instruction, at its simplest has the form 
SOUND chan,tone [,duration [,loudness]] 


where ‘chan’ selects the sound channel and its status, ‘tone’ selects the pitch 
of the sound, ‘duration’ specifies the time-period of the sound and ‘loudness’ 
gives the volume. 

There are three channels, which can be controlled independently for 
three-part harmony. They are numbered 1, 2 and 4. The ‘chan’ parameter 
can take other values (for synchronization purposes), but we will leave that 
for now. 

The tone is a numeric expression giving the reciprocal of the sound's 
frequency. This means that larger numbers denote lower tones. For 
example tone 239 is middle C at 262 cycles per second, while tone 142 is 
international A at 440 cycles per second — on a ‘well-tempered' scale. 

The duration parameter is specified in units of one-hundredth of a second. 
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Therefore a duration of 20 gives a sound lasting one-fifth of a second (0.2 
seconds), 

The loudness governs the amplitude of the sound, with 0 meaning off, 
1 very quiet and 15 as the maximum volume. 

Thus, the command 


SOUND 1,144,40,12 


causes the computer's speaker to beep on channel | at a pitch just off-key 
from international A for 0.4 seconds at 80% full blast. Try it. (You can alter the 
loudspeaker control manually with a little thumb-wheel behind the 
keyboard: maximum volume is really rather loud.) 

And that is all you need to know to make music on the machine. The 
program below is a demonstration. 





Listing 8.3 Pentatonic player 








LO REM 1 II III IO tok 


11 REM ** Listing 8.3 : ae 
12 REM ** PENTATONIC PLAYER “* 
15 REM 1 II IOI IO TOK ke 
50 8 


100 REM -- The Pentatonic Scale & all that Jazz: 
120 GOSUB 1000 : REM get notes 

130 done$=64+INT(RND*64) 

140 n%=note%/2 

150 WHILE done%>0 

170 loudness%=10+RND*5 

175 duration%=beat%*RND+10 

180 SOUND 1,tone(n%),duration%, loudness% 
200 done%=done%-1 

202 n$=n% + INT(RND*5) - 2 

205 IF n%>note% THEN n%=0 

210 IF n%<0 THEN n%=note% 

212 PRINT n% 

220 WEND 

250 END 

300 : 

1000 REM -- Initialization routine: 
1001 RESTORE 

1010 beat%=12 

1020 READ n%: note%=n%*5-1 

1025 DIM tone(note$) 

1050 FOR n%=0 TO note% 

1060 READ tone(n$%) 


1080 NEXT 
1100 RETURN 
1110 : 


1200 REM -- Musical data: 
1202 DATA 5 

1210 DATA 676,602,536,451,402 
1220 DATA 338,301,268,225,201 
1230 DATA 169,150,134,113,100 
1240 DATA 84,75,67,56,50 

1250 DATA 42,38,34,28,25 

1300 : 
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The black keys (D-sharp, C-sharp, A-sharp, G-sharp and F-sharp) on the 
piano comprise a pentatonic scale. This has the supreme advantage of 
having almost no dissonances. It also sounds very ecclesiastical. The 
program above is a random pentatonic anthem generator. It is deceptively 
simple, but the resultant tone sequences (we hesitate to say ‘music’) are 
pleasant enough. 

Subroutine 1000 initializes various parameters, including the array tone(). 
This holds five pentatonic scales whose notes are defined by the data 
statements on lines 1200 onwards. The lower notes come first. The main loop 
of the program from line 150 to 220 merely repeats from 64 to 127 notes. On 
line 170 the loudness is determined partly at random. On line 175 the 
duration is computed in a similar way. The SOUND statement on line 180 only 
uses channel 1: this is single-voice melody, without harmonies. The tone is 
selected from array tone() by the variable n%, which steps up or down at 
most two intervals each time round the loop. This increment, or decrement, 
is achieved on lines 202 to 210. 

Line 212 is merely included to show you which note is being played — 
though you will notice that the screen display gets ahead of the sound output. 
This is because the sound-generator is an autonomous chip within the 
computer. The main CPU sends it a sound command and then can get on 
with something else. In fact, the sound-generator has its own queue of 
instructions, which it deals with in its own good time. 

Rather than store the tone values in an array, as we do here, you may wish 
to calculate the appropriate tone value for each note. This can be done with 
the two lines 


freq = 440 * (2 (Noct+((n—10)/12))) 
tone = round(62500/freq) 


where Noct is the octave number (—4 being the lowest and 3 the highest), 
n is the note of the 12-tone scale within that octave (1 being C, 2 being 
C-sharp, 3 being D etc.) and freq is the frequency in Hertz or cycles per 
second, Then tone is the value to use in the SOUND instruction. 


8.2.2 What’s inside the envelope 


In its fullest form, the SOUND command can take as many as seven 
parameters (and as few as two). Only the channel and the tone are 
compulsory. Duration and loudness can be left out, in which case duration 
defaults to 20 (one-fifth of a second) and loudness to 12 (80% of maximum). 

There are three further parameters - the volume envelope, the tone 
envelope and the noise selector, respectively. The last (noise) is a number 
from 0 to 31 which is best investigated experimentally: suffice it to say that it 
adds ‘white noise’ of various types to the output sound. 
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The envelope parameters are simply identifying numbers in the range | to 
15, For them to have any effect, you must first define a volume envelope with 
ENV and/or a tone envelope with ENT. 

The ENV instruction has an envelope identifier (1 to 15) then up to five 
sections each containing three parameters. That means it can have up to 16 
parameters altogether. Each section has the form 


n,S,p 


where n is the number of steps in the section (0 to 127), s is the step size in 
volume levels (— 128 to +127) and p is the pause time between steps (0 to 
200, where 0 is treated as 256). The pause time is given in steps of 0.01 
seconds, so that 2.56 seconds is the longest pause time. 

Thus 


110 ENV 2, 10,1,100, 40,—1,20 


creates an envelope, number 2, with two sections. In the first section, lasting 
one second, the volume increases in ten steps (of 0.1 second each); in the 
second (lasting 0.2 seconds) the volume decreases in forty steps (of 0.005 
seconds each). 

Well, we never said it was going to be easy. Try sticking it in as line 110 of 
Listing 8.3 to see what it sounds like. The idea of a volume envelope is not 
hard to grasp: it specifies the rise and decay of the sound. But the details are 
very fiddly. 

The ENT instruction works in an analogous manner. There is the envelope 
number (1 to 15) then one or more sections. Each section contains three 
values — the number of steps, the tone interval per step, and the time per 
step. You could try 


112 ENT 2,100,2,2 


in Listing 8.3. This, together with 110 above, would entail modifying line 180 
of the program to 


180 SOUND 1,tone(n%),duration% ,loudness% ,2,2 


to use of the volume and tone envelopes. 

For the musically minded, there is endless fascination here. For the rest of 
us, it is hard going. As far as putting things on paper is concerned, the best 
advice is: read the User Instructions, then experiment for yourself. 


8.3 Interrupts 


Charles Babbage, the grandfather of the modern computer, designed a 
blueprint for what he called an ‘Analytical Engine’ in the middle of the 19th 
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century. Apart from the fact that it was to be constructed from rods, cams, 
gears and so forth instead of electronic equipment, it was remarkably like 
the present-day digital computer. In fact, since Babbage's time, there have 
been only two conceptual advances in computer design of any significance. 

The first was the idea of storing program instructions as data, usually 
credited to John Von Neumann, a mathematician who worked on the 
Manhattan project during World War Two. Babbage's machine treated 
programs and data in two different ways. 

The second was the concept of the interrupt, which arose in the 1960s. An 
interrupt is a signal that interrupts normal processing and allows the 
computer to respond to events in the outside world. Without interrupts, 
computers could not control ‘real-time’ processes, nor could large 
mainframes share out time between many different users. Babbage's engine 
was not designed with ‘multi-tasking’ in mind. 

It is rare for a microcomputer to provide interrupt-handling in Basic, but 
the Amstrad does just that. There are a number of keywords that enable a 
Basic program to interrupt what it is doing and attend to something else. 

The AFTER instruction has the form 


AFTER waittime [,timernum] GOSUB line 


where ‘waittime’ is in fiftieths of a second, ‘timernum’ specifies which timer to 
use (0 to 3), and ‘line’ is the start of a subroutine for handling the event. After 
the given amount of time has elapsed, the subroutine will be executed. Each 
of the timers may have its own subroutine associated with it. Timer 3 has the 
highest priority, with timer 0 (the default) having the lowest. 

The EVERY instruction has the form 


EVERY timestep [,timernum] GOSUB line 


where ‘timestep’ is again measured in fiftieths of a second; and the other 
parameters are the same as for AFTER. This calls the subroutine specified 
every so often. There is also a function 


REMAIN(timernum) 


that returns the amount of time remaining on the timer concerned (0 to 3) and 
disables it. These facilities allow the programmer to perform rather 
sophisticated time-slicing. For example, a loop awaiting user input such as 


1200 ch$=INKEYS: IF ch$=“" THEN GOTO 1200 


could be interrupted from time to time, with a suitable message. The 
program need not get stuck waiting for something to be typed at the 
keyboard. 

Note that you can turn off interrupts (apart from ESC) with DI (Disable 
Interrupts) if your interrupt-handling routine must not itself be interrupted by 
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anything else. Interrupts are re-enabled by EI or by the RETURN instruction 
that leaves the interrupt-handling routine. 

Another similar facility allows trapping of errors and BREAKs. (A BREAK 
is caused when ESC is pressed twice.) 

The 


ON BREAK GOSUB line 


instruction sets a trap so that whenever ESC is pressed twice, a particular 
routine is executed. The 


ON BREAK CONT 


disables the ESC altogether. After this command (until the next ON BREAK 
STOP) the ESC key will be ignored completely. Careful! 
We have already used the 


ON ERROR GOTO line 


instruction (in Listing 6.6) to avoid halting the program when a missing file 
was specified for input. Once executed, this instruction tells Basic not to 
handle errors in the normal way, but to jump to a particular line instead. 
There the program can test what happened and act accordingly. To do so, 
use the ERR variable, which contains the error-number of the last error. You 
may also need to look at ERL, which holds the number of the line where the 
latest error occurred. A list of error numbers can be found in Appendix E. 

After dealing with the condition that led to the error, the program can 
continue normally with the RESUME statement. If it fails to deal with the 
error, it can give up with 


ON ERROR GOTO 0 


which restores Basic's normal error-handling. 

The net result of all these instructions is to enhance Basic considerably. 
They are there to make interactive video games easier to write in Basic, but 
they have other uses, as readers will no doubt discover for themselves. 


8.4 Example program [RATMAZE] 


Our example program illustrates one of the search strategies that is taught in 
introductory courses on Artificial Intelligence. It also provides a chance to 
show off a few more of the Amstrad’s graphical facilities, especially the 
SYMBOL and SYMBOL AFTER instructions for defining new character- 
shapes. 

The search process works with the concepts of ‘open nodes’ and ‘closed 
nodes’. At any given time there may be several of both kinds in memory, 
each one on an incomplete pathway to the goal. A node isa single step along 
a route being constructed towards the goal. For each node, the computer 
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needs to store four pieces of information: 


(1) where it is on the maze map; 


(2) where it came from (its immediate predecessor) so the route can be 
re-traced later; 


(3) how many steps have been taken to reach it; 
(4) how far away it is from the goal. 


These are held in the arrays node(), path(), cost() and h() respectively, 
which are dimensioned on line 88 of the program. They are used to 
represent the ‘search tree’ as it grows. 

The search starts with only one open node: that is the location of the rat, 
who begins in the top left-hand corner. This initial node has no predecessor. 
The first step is for that node to be closed (so that the search will ignore it 
from then on) and all its successor nodes to be opened. These are the 
squares which can be reached with a single move (up, down, left or right) - 
except, of course any wall squares. 

From then on the program grows new paths by picking the open node that 
looks most ‘promising’, then closing it and generating its successors as new 
open nodes — until it finds a solution or gives up. This cycle is the main loop at 
the heart of the program on lines 190 to 240, 

On the screen, open nodes are marked by a ratlike symbol. This is printed 
after a PEN 15 instruction on line 4556 so that the rats appear in a flashing 
colour. Closed nodes (already examined) are shown as pawprints. The goal 
appears as a wedge of cheese. Blank squares have not been explored, and 
filled squares are the walls which block the rat's path. 

The program does not use graphics proper, but it makes use of the 
Amstrad's facility for defining new character-shapes to give an interesting 
visual display. If you look at line 1550, for instance, where the food symbol 
(character 225) is defined, you will see how this works. The rather 
meaningless numbers are actually specifying the position of light and dark 
dots in an 8-by-8 grid. Each number defines a pattern of foreground and 
background colours on one of the eight lines. By staring at these numbers in 
binary notation, you may be able to perceive a deliciously cheesy shape. 
(Well, it looks all right on the screen!) 


0 00000000 
24 00011000 
28 00011100 
62 00111110 
62 00111110 
120 01111000 
96 01100000 
0 00000000 
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This method can be used to create new 8-by-8 character patterns of your 
own. 

The progress of the search can be observed by watching the rat symbols 
marching outwards. Search strategies are usually taught as a rather dry 
subject; but with the aid of our robot rat, you can get an immediate pictorial 
grasp of what is going on. If there are several rats, it means that there are 
several partial paths being explored concurrently. At the end of the search, 
the maze is re-drawn and the route discovered marked out by footprints. 

The main subroutines are as follows. 


1000 Create the maze, partly at random so that it varies each time. 

1500 Define the characters for rat, cheese, walls, and so forth. 

2000 Clear the arrays that hold information about the open and closed 
nodes. 

3000 Select the most promising node for further expansion. 

4000 Expand the chosen node by closing it and opening its neighbours 
(successor nodes). 

5000 Retrace the path discovered. 


The significant variables are as follows. 


mh Maze height 

mw Maze width 

path(I) Predecessor of node I 

cost(I) Steps taken to get to node | 

node(I) Position of node I in the maze 

h(I) Heuristic estimate of distance from node I to goal 


The heuristic estimate of distance from any node is calculated as the total 
number of squares (horizontally and vertically) to the goal. Thus the rat 
actually knows how far it is from the cheese, though it does not know about 
obstacles in its way till it hits them. The problem would be harder if the rat 
had a less accurate estimate of distance yet to travel (as happens in certain 
other tasks). 

The variables W1 and Wa, set on lines 65 and 66, are also very important. 
By altering their values you can experiment with different search strategies. 
W1 is the weighting given to the distance travelled so far (cost). W2 is the 
weighting given to the heuristic estimate of distance still to travel (hd). They 
are used in subroutine 3000 to determine which open node is the most 
promising at each stage, and should therefore have its neighbours 
examined. 

Initially W1=1 and W2=1.5, but you can try other values to see their effect. 
Ahigh weighting for W1 isa bias towards conservatism. The system will then 
try to find the best possible pathway, but it will take longer (typically) to do 
so. A high value for W2, on the other hand, makes it biased towards 
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opportunism — only backtracking when forced to do so. This normally finds a 
way to the goal more quickly, but it is not always the optimum route. The best 
compromise is normally reckoned to be when W1 and W2 are both equal to 
1. but the search looks more interesting with higher values of W2, as you will 
see. (Try W1=0 and W2=1 for an extreme case.) 








Listing 8.4 Rat-maze program 








10 REM KARKKKKKKKEKKKKKKKKKKKKKEK 

15 REM ** Listing 8.4 : ak 

20 REM ** RAT-MAZE PROGRAM ** 

30 REM KKEKKKKKKKKKKKKKKKKKKKKEK 

40 MODE 0: BORDER 11 

50 mh=18: mw=18: REM Maze Height & Width 

55 size%=220 : REM tree limits 

60 wa=l: rr=2: fo=3: dn=4: bl=5: fp=6 

65 wl=l : REM weight for SF 

66 w2=1.5 : REM weight for HD 

80 DIM m(mh+1,mw+l) : REM the maze 

85 DIM c$(6) : REM maze characters 

88 DIM path(size%),cost(size%),node(size%),h(size%) 
90 REM Path, Steps, Node, Heuristic dist. 

96 LOCATE 8,16: PRINT "Ratmaze!" 

99 : 

100 REM -- Rat in the Maze: 

101 GOSUB 1500 : REM define graphics 

110 GOSUB 1000 : REM make the maze 

120 wmax=mwtl 

150 nc=0 : REM no. of nodes examined 

160 k=0 : REM counter 

170 GOSUB 2000 : REM clear all paths 

180 node(1)=2*wmax+2 : REM lst open node 

185 cost(1)=0: h(1)=fr-1 + (fc-1) 

188 path(1)=0 : REM no predecessor 

190 REM -- Main Loop: 

195 WHILE (nc<size%) AND NOT (fr=sr AND fc=sc) 
200 GOSUB 3000 : REM pick next node 

210 nc=nctl 

215 LOCATE 1,mh+3 

220 PRINT nc;SPC(2);sr;"_ ";sc;SPC(2) ;h(s);SPC(4) 
230 GOSUB 4000 : REM generate successors 

240 WEND 

244 LOCATE 1,1: PRINT "Finished! !";CHR$(7); 
250 IF fr=sr AND fc=sc THEN GOSUB 5000 : REM retrace steps 
255 IF nc>=size% THEN PRINT " Failed!";CHR$(7) 
256 PRINT nn;" nodes examined." 


900 END 

999." 

1000 REM -- Routine to create maze: 

1001 PRINT" Wait a moment:": PRINT " making a maze." 


1010 RANDOMIZE TIME 

1050 FOR p=1 TO mht+1 

1060 FOR r=1 TO mw+l 

1070 IF RND < 0.33 THEN m(p,r)=wa ELSE m(p,r)=bl 
1072. IF p=3 AND r<7 OR r=3 AND p<6 THEN m(p,r)=bl 
1075 IF p=1 OR r=l THEN m(p,r)=wa 
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1077 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
L75 
1180 
1190 
1199 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1299 
1500 
1510 
1515 
1530 
1535 
1540 
1550 
1570 
1590 
1599 
2000 
2010 
2020 
2030 
2050 
2070 
2080 
2090 
2099 
3000 
3010 
3020 
3025 
3030 
3033 
3040 
3050 
3060 
3065 
3070 
3080 
3090 
3099 
4000 
4010 
4020 
4030 
4040 


IF p>mh OR r>mw THEN m(p,r)=wa 
NEXT: NEXT 
fr=7 + INT(RND*(mh-7)) : REM food row 
fc=4 + INT(RND*(mw-4)) : REM food col 


m(fr,fc)=fo 
m(2,2)=rr : REM robot rat 


c$(bl)="_" 

c$(wa)=CHR$(227) : REM wall 
c$(dn)=" " 

c$(rr)=CHR$(224) : REM rat 
c$(fo)=CHR$(225) : REM cheese 


c$(fp)=CHR$(180) : REM footprint 
GOSUB 1200 : REM display maze 
RETURN 


REM -- Maze display routine: 

CLS 

FOR r=l TO mht+l 

FOR c=1 TO mwtl 

LOCATE c,r : PRINT c$(m(r,c)); 

NEXT 

PRINT 

NEXT 

RETURN 

REM -- Graphics definitions: 

PAPER 3 

PEN 1 

REM -- special characters: 

SYMBOL AFTER 220 

SYMBOL 224, 128,64,56,60,61,30,7,11 
SYMBOL 225, 0,24,28,62,62,120,96,0 
SYMBOL 227, 255,255,255,255,255,255,255,255 
RETURN 


. 
: 


REM -- Tree-clearing routine: 
dd=9999 : REM marks unused cells 
FOR qt=l TO size% 
path(q%)=0: cost(q%)=dd 
node(q%)=0: h(q%)=dd 
NEXT 
nn=1 : REM next free node 
RETURN 


REM -- Pick best node S: 

s=l: bn=dd 

FOR i=l TO nn 

sf=cost (i) 

hd=ABS (h(i) ) 

v=sf*wl + hd*w2 

IF v<bn AND h(i)>=0 THEN s=i: bn=v 

NEXT 

IF s=l THEN LOCATE 1,1:PRINT "Exploring:" 
IF s=l THEN LOCATE 1,mh+2: PRINT "Steps Position 
sr=INT(node(s ) /wmax) 

sc=node(s) MOD wmax 


RETURN 
REM -- Routine to generate successors: 
IF h(s)=0 THEN RETURN : REM quit early: solved. 


REM -- North: 
y=sr-l: x=sc 
IF y>1l THEN GOSUB 4400 


Dist" 
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4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4165 
4170 
4175 
4180 
4190 
4199 
4400 
4410 
4420 
4425 
4430 
4435 
4440 
4444 
4500 
4520 
4530 
4540 
4550 
4555 
4556 
4560 
4565 
4570 
4580 
4599 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4880 
5000 
5010 
5020 
5025 
5030 
5033 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5115 
5120 
5125 


REM -- East: 

y=sr: x=sctl 

IF x<=mw THEN GOSUB 4400 
REM -- South: 

y=sr+l: x=se 

IF y<=mh THEN GOSUB 4400 
REM -- West: 

y=sr: x=sc-l 

IF x>l THEN GOSUB 4400 

REM -- also close node s: 
h(s)=-h(s) 

IF h(s)>0 THEN PRINT "Help! Rat is stuck!";CHR$(7): STOP 
PEN 8 

LOCATE sc,sr: PRINT c$(fp); 


PEN 1 

m(sr,sc)=dn: REM blanks cell on screen 
RETURN 

REM -- Routine to open one node: 


IF m(y,x)=wa THEN RETURN 

IF x>mw THEN RETURN 

xy=x + y*wmax 

REM -- find next free location: 
GOSUB 4800 

IF nx=0 THEN nn=nn+l ELSE RETURN 
IF nn>size% THEN LOCATE 1,1: PRINT "I give up!";: STOP 
REM -- now open it: 

node(nn)=xy 

path(nn)=s 

cost (nn)=cost(s)+1l 
h(nn)=ABS(y-fr) + ABS(x-fc) 
m(y,x)=dn : REM mark as visited. 


PEN 15 

LOCATE x,y: PRINT cS$(rr); 
PEN 1 

REM shows it on screen. 
RETURN 

REM -- Revisit check-routine: 


nx=0: IF m(y,x)<>dn THEN RETURN 

FOR n%=1 TO nn 
IF xy=node(n%) AND cost(n%)<=cost(s)+l THEN nx=n%: n%=nn 
NEXT n% 


RETURN 
REM -- only reopen nodes if better path found. 
REM -- Path-retracing routine: 


ts=cost(s) 
FOR qq=l TO 2500: NEXT qq : REM delay 


GOSUB 1200 
LOCATE fc,fr: PRINT c$(fo); 
PEN 12 
WHILE s>0 
s=path(s) : REM parent node 
xy=node(s) : REM coords. 


x=xy MOD wmax 
y=INT (xy/wmax ) 
m(y,x)=rr: REM rat’s footprint 
IF xy>0 THEN LOCATE x,y: PRINT cS$(fp); 
WEND 
PEN 8 
LOCATE 2,2: PRINT c$(rr) 
PEN 4 
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5130 LOCATE 1,mh+2: PRINT ts;" steps in path." 
5140 PRINT nc;" nodes closed." 

5150 RETURN 

5160 : 


The routine starting on line 4800 checks whether to re-open a previously 
visited node. It does so if the new way of getting there is quicker than the 
previous way. This can sometimes happen, and by taking advantage of such 
discoveries the program finds a route that appears more intelligent. (Note 
that when it draws an insoluble maze, as occasionally happens, the search 
fails gracefully.) 

Try it and see. It is quite a clever little program, and visually appealing too. 
If you want to know more about search strategies in general, read The 
Hitch-hiker's Guide to Artificial Intelligence by Forsyth and Naylor (Amstrad 
edition from Chapman and Hall, 1986). 


8.5 Exercises 


1. Use the PLOT instruction in relative mode (or another method if you 
prefer) to create a subroutine that draws a regular polygon of specified 
side-length. The routine should also be given the number of sides and the 
position of the centre, plus a flag that tells it whether to fill the shape with 
colour or not. 


2. Investigate the ENV and ENT commands further to try to find how to 
produce the sounds of snoring, chips frying, rain falling and heavy breathing. 
(They say it can be done.) 


3. One of the Amstrad's disadvantages is that there is no simple way of 
dumping the contents of the screen to the printer (unless you exit to CP/M). 
We are not talking about a graphical screen-dump, merely about the sort of 
thing most microcomputers have whereby you press a special key and all 
that is typed (by user or machine) on the screen appears also on the printer — 
till further notice. 

Write an interrupt-driven routine that gets called every second or so and 
tests whether the screen is nearly full. If it is, it should copy the text screen 
contents to the printer and then clear the screen. This should be written so 
that it can be MERGEd with any program to provide a hard-copy of its 
interactive screen input-output. (Very useful for example listings if you want 
to write a book called The Amstrad Basic Idea.) 


4. Go one step further than the previous exercise and write a graphics 
screen-dump utility. This will involve you in looking into your printer's 
instruction manual. Most dot-matrix printers are capable of copying a screen 
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image: some can even do it in colour. Even daisy-wheel printers can manage 
it, after a fashion, though very slowly. 

Because printers vary so widely, we can only offer very general guidance 
here; but you will find the XPOS and YPOS functions useful here. They will 
enable your program to scan the screen pixel-by-pixel in any order the 
printer requires. 


9 
software design 


STRUCTURED PROGRAMMING GUIDELINES 


It is 2.00 am. You are all alone at the keyboard. You have been there, 
slogging away, since six-thirty in the evening. As you type RUN and press 
RETURN for the umpteenth time that night, you offer up a silent prayer that 
this time, at last, the program will work. You are now a fully paid-up member 
of the Midnight Hacker's Club. 

How did you get into such a mess? 

The short answer is through lack of planning. Once you reach the stage of 
praying that your programs will work, rather than knowing they will work, 
you have lost control. And once you lose control of software it turns into an 
insatiable Black Hole — swallowing up energy without visible result. 

To help you avoid this Black Hole, we have devised a Midnight Hackers’ 
rehabilitation plan. After all, we know the frustrations of midnight hacking 
ourselves. 


9.1 Program design 


There are three key questions to ask about any piece of software. 


1) Does it work? 
(2) Does it work? 
(3) Does it work? 


Most programs, unfortunately, fail all three tests. This includes many 
professional products. 

However, after thirty-five years of software practice and experience, 
there is no excuse for this state of affairs — especially since it is easier to write 
software that works than software that does not. 

Impatience is the enemy; and impatience in the form of deadlines 
(whether self-imposed or laid down from outside) undoes us all at times. So 
here are some guidelines which should help you remain in control, even 
under pressure. 
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9.1.1 Basic control structures 


Over the years it has become accepted that there are four types of control 
structure which form the basis of a programmer's conceptual toolkit. These 
are listed below. 


(1) Sequence 


(2) Selection 
IF-THEN-ELSE 


(3) Repetition 
WHILE-WEND 
FOR-NEXT 


(4) Modularity 
Subroutines and Parameters 


Sequence simply means doing one thing, then the next, then the next... 
and so on. That is how current computers work, so we hardly give it asecond 
thought. The idea of analysing a problem into a sequence of steps takes a 
little getting used to, but most people pick up that knack quite quickly. 

Selection means that a program can choose one path or another 
depending on conditions that arise during execution. This gives programs 
their great flexibility. 

Repetition is what computers are good at. One of the arts of computer 
programming lies in formulating a solution as the repeated application of 
simple operations. We dealt with this in Chapter 3. 

Modularity refers to the subdivision of a large system into components. It is 
not always obvious how a natural and efficient subdivision differs from an 
unnatural and/or inefficient one. 

These four control structures are well-behaved and well-understood. 
Furthermore it has been proved that any computation can be expressed by a 
suitable combination of these, and only these, fundamental constructs. 
Amstrad Basic supports them all (with reservations, which we will discuss in 
Section 9.4). 

Of course there are plenty of other control structures — including the 
notorious GOTO, But the point is that they (especially GOTO) give you 
exactly the sort of freedom you do NOT want, namely the freedom to get into 
a horrible mess. 

This is the central message of structured programming: learn the four 
essential structures and how to put them together, and you have learned the 
fundamentals of programming in any language. Once you have mastered the 
basic constructs, you have the building blocks for a lifetime of productive 
programming. 

The benefit of restricting yourself to these few standard forms is that you 
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stay in control, mainly because you never do anything particularly clever. 
This is because you have learnt that the smart way to produce a non-trivial 
piece of code is to put together lots of trivial pieces of code. 

In other words, being a competent programmer is far more a matter of 
knowing how to use these structures than, say, remembering what 
WAIT&FF84,20,25 means or that INKEY(47) indicates whether the user has 
hit the space bar. Such things can always be looked up. 


9.1.2 Modularity 


Ofall the four fundamental programming constructs listed above, modularity 
is perhaps the hardest to master. Yet it is the one which repays 
understanding most handsomely. 

A large system tends to be composed of several programs, and a large 
program usually consists of many routines. The routines in a program or 
programs in a system are termed ‘modules’. 

The objective of modular programming is to parcel up the program into 
thought-sized chunks, each with a well-defined purpose. In addition, the 
chunks should communicate with one another in a tidy fashion. How can we 
achieve these objectives? 

Generally speaking, you are safer with smaller modules, for two reasons. 
Firstly, a small module is easier to code, easier to test and easier to 
understand than a large one. Secondly, a module that does only one job is 
more likely to be generally useful, for instance in another program or 
another part of the same program. In software, as in economics, small is 
beautiful. 

It is wise, therefore, to avoid the temptation to add extra features to your 
procedures. Concentrate instead on making them do one thing well. 

For example, it might seem a good idea to write a procedure 


GOSUB 3600 : REM sorts and prints array 
in preference to 


GOSUB 4000 : REM sorts array into order 
GOSUB 4400 : REM prints it out 


but one day you may want sorting without printout, or sorting followed by 
output in different format. And in any case it is easier to test one thing ata 
time. If the sort-and-print routine fails to work properly, you have to discover 
whether the sorting part or the printing section is going wrong. If one of the 
others fails, you know where to start looking. 

Having chopped your big program into small modules which are 
implemented as routines (GOSUB and RETURN) or functions (DEF FN), you 
must ensure that the modules pass information among themselves in a well 
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regulated manner. Amstrad Basic makes it difficult to pass information into a 
subroutine via parameters (see Chapter 4) because all variables are global 
to the whole program. Global variables are a very convenient means of 
communicating among subroutines, but the trouble with global variables is 
that one routine can make changes that inadvertently affect another. This can 
cause chaos. We shall have more to say on this question in Section 9.4. 


9.1.3 Stepwise refinement 


Granted that we want modules that are small, simple and good at one 
specific job, how do we turn a blank piece of paper into a collection of 
efficient procedures and functions? (Yes, good old-fashioned paper! You do 
not start typing a program in until you have written down what you are going 
to type.) 

One answer to this problem is known as Stepwise Refinement, or Stepwise 
Decomposition. It is a top-down approach to problem analysis. 

First you split the main program into major processes. Then you break the 
major processes into a small number of subdivisions. Each of these is givena 
name and the task that it accomplishes is defined by stating what inputs it 
requires and what outputs it delivers. How the subprocess actually carries 
out its job is not relevant at this stage. 

Once a module is coded in this way, attention is focused on each of its 
subprocesses in turn, using the same strategy of decomposition. Ultimately 
subprocesses are reached which are trivial. They can be coded directly so 
the decomposition halts. 

Although it appears that all the complexities are relegated at every stage 
to lower levels, it will be found in the end that nothing complicated remains 
to be done. That, at least, is the theory! 

We shall attempt to put this theory into practice in Chapter 10, so you can 
judge us by results, but what we are saying — in a nutshell - is that writing a 
well-structured program is rather like writing a well-organized book. 

You start with an outline, which is little more than a list of chapters and 
topics. You push these around for a while, considering alternative 
arrangements and different ways of subdividing the topics you want to 
cover. When you are happy with the overall plan, you take each chapter in 
turn and split it up into sections under a number of different subheadings. 
Under each subheading you write a few paragraphs, each composed of a 
small number of sentences concerned with a single theme. 

As long as the chapters follow a logical plan, and the sections within each 
chapter follow a logical sequence, and the paragraphs in each section also 
follow a logical sequence, there is a good chance that the whole structure 
makes sense. 
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9.1.4 An implementation timetable 


Programs do not spring ready-made from the programmer's head. They 
evolve over time. 

The growth (and decay) of software with time is an issue that is very often 
ignored. But the time dimension is a crucial aspect of software design. 

Many over-eager novices come to grief by trying to get a complete 
system, with all the ‘bells and whistles’, working from the beginning. So do 
quite a number of old hands who ought to know better. It is wiser to adopt an 
incremental approach, biting off only one mindful to chew it over at one time. 

This entails a timetable or plan of campaign — something along the lines 
shown below. 


Days 1-2: Write the skeleton main program with only the main menu 
procedure fully working. 

Days 3-5: Plug in and test the input routines. 

Days 6-7: Get the output modules working. 

Days 8-10: Code and test the updating functions. 


Even an outline as simple as this will prove helpful for the amateur 
programmer, though a professional would want something more detailed. 

The advantage of getting an initial skeletal version working early on is that 
it gives you encouragement. It also lets you see the consequences of your 
design decisions while there is still time to re-think them. 

If you are writing a program for others to use, you can show them the 
prototype and obtain their comments. It is vital to receive this kind of 
feedback at an early stage before your ideas are ‘set in concrete’. We all 
know how hard it is to change our minds once we have become accustomed 
to a certain way of thinking. 

The life-cycle of a typical program looks something like this. 

REM planning 

REM outline 

REM prototyping 

REM testing 

WHILE NOT obsolete 
REM modification 

WEND 

END 


If you think the job is done when version 1.0 finally runs to completion you 
have either misunderstood the software life-cycle or written a very 
short-lived program. Most programs are subjected to continual revision. 
(One hesitates to say ‘improvement’! This is because neither the system's 
designers nor its users really know what they want until they see what they 
have got. 
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For this reason, flexibility is almost worth more than you are prepared to 
admit at the moment of coding. Let us give a small example. 

If you ever write an output procedure that works perfectly on 66-line 
printer paper (and only on 66-line printer paper) you will surely live to regret 
it. It takes a little extra time to write it so that it can be switched to 60-line or 
72-line paper — merely by setting an extra variable giving the page length - 
but not nearly as much time as it will take to alter all the references to 66 (and 
perhaps 65 and 67) in the code, and to check you have got all the changes 
right. Make no mistake: one day your stockist will run out of the right sized 
listing paper, or you will buy a new printer. One of the cardinal rules of the 
software game is that the rules keep changing. You cannot even play, let 
alone win, unless you plan for change. 

In our pseudo-program above, the system gets modified until it is 
obsolete. Some people will find it strange that a program with no moving 
parts and nothing to wear out or go rusty could eventually break down; but it 
does happen. It happens because the world moves on, people develop new 
requirements, the hardware becomes out of date, and so forth. 

By emphasizing the temporal development of software in its human 
context we are encouraging you to design systems with a long and useful life 
ahead of them. Lack of modifiability leads to the premature senility of 
software. 

A program in its old age is a sorry sight —- abandoned long ago by those 
who cared about it and so full of scars, stitches and emergency transplants 
that all trace ofits original form is obliterated. No one understands any longer 
how it works or, more important, why it goes wrong. It becomesa chronically 
sick patient, languishing in the geriatric ward, puzzling its doctors and 
annoying the nurses by its erratic behaviour and frequent demands for 
attention. One day the time comes when it is less trouble to put it out of its 
misery than to attempt the drastic surgery needed to restore it to its former 
health. 


9.2 Data representation 


It would be quite wrong to give the impression that program structure is the 
only thing that matters in software design. Data structuring is even more 
crucial. And a mismatch between the structure of the program and the 
structure of the data it uses is likely to result in a program that is grossly 
inefficient, if indeed it works at all. 

Yet many programmers still regard data representation as an optional 
extra — to be dealt with as an afterthought when the real business of coding is 
complete. This attitude is mistaken. Most non-trivial programs have to 
replicate reality in some sense, and the accuracy of their world model 
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determines how well they work. This comment does not apply only to 
explicit simulation programs: a weather forecasting system models the 
atmosphere; a stock control program models the behaviour of customers; a 
game-playing program models, inasense, the human planning process; and 
so on. 


9.2.1 Data structuring 


Basic is not very well endowed with data structuring facilities. The trick is to 
learn how to build on what is provided. 

The simple data types — characters, integers and floating-point or ‘real’ 
numbers - are the materials from which all data representations have to be 
built. The only structured data objects provided in Basic are the array and 
the string. 

Datafiles are different in that they can contain relatively large amounts of 
data and are slower to access; but Amstrad Basic treats files like very long 
strings of bytes. As we saw in Chapter 7, any structure the programmer 
wants has, in effect, to be imposed on the file. 

We have dealt with the conventional uses of arrays in Chapter 3 and of 
strings in Chapter 5. Here we want to consider how to use them to create 
data structures that are not part of the Basic language. We shall consider 
examples that mimic three or more complex structures — tables, trees and 
networks. 


9.2.2 A table of records 


A table is an array of records. It is rather like a datafile which is small enough 
to be held in main memory (RAM) and thus need not reside on disc. Each 
record describes one object or entity and is composed of several fields. 

To be specific, let us imagine that we are starting to design a program 
which will work out routes on the London Underground and use the 
Amstrad's excellent colour graphics to display its results as a map on the 
screen. (Later it could be generalized to the Paris Metro or the New York 
Subway, provided we keep it flexible.) 

In this example, the objects we are interested in representing are stations, 
and the lines that connect them. A station record, for the time being, will 
have the following four fields. 





Fieldname Type Description 








name$ string The station's name 
tubeline$ string The line it is on 
high% integer The y-coordinate on the screen map 


wide% integer The x-coordinate on the screen map 
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eg. 
name$ “Finsbury Park" 
tubeline$ “Victoria” 
high% 106 
wide% 144 


A table of such objects is simply a one-dimensional array of station records. 
But Basic does not provide a way of grouping the four different items into a 
single unit, so we have to link them together ourselves. 

With the statements 


100 stations% = 100 
110 DIM namef(stations%), tubeline$(stations% ) 
120 DIM high%(stations%), wide%(stations% ) 


we can declare enough storage for a table of 100 stations. 

Notice that by employing the integer arrays high% and wide%, we are 
assuming that the x and y coordinates of our underground stations have no 
fractional part. In practice we want then to lie in the range 0 to 400 in high%() 
and 0 to 640 in wide%(). 

Now at last we are ready to read in a table of stations. 


1000 RESTORE 

1010 FORS% = 1 TO stations% 

1020 READ name$(S%), tubeline$(S%) 
1030 READ x%, y% 

1035 wide%(S%) = x% : high%(S%) = y% 
1040 NEXT S% 


2000 DATA Newbury Park, Central, 186, 107 
2010 DATA Barkingside, Central, 186, 110 
2020 DATA Fairlop, Central, 186, 114 

2030 DATA Hainault, Central, 186, 118 

2040 DATA Liverpool Street, Circle, 150, 75 
2050 DATA Moorgate, Circle, 140, 82 

2060 DATA Barbican, Circle, 136, 82 

.... [Landsoon].... 


It is now time to introduce the notion of ‘data hiding’. The idea is that we 
hide the details of how we implement a data structure behind a series of 
subroutines and functions, which present the data the way we want it, not the 
way the machine handles it. 

As you will have noticed, we created a set of four arrays nota single table 
of records with four fields. It is only the way we use those arrays that links 
them together. In other words, we always use the same subscript for related 
data. Thus 


name§$(25) 
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contains the name of the 25th station, and 
high% (25) 


contains the vertical screen position for the 25th station. 

But this only remains true as long as the programmer is consistent. By 
hiding away the arbitrary details, we can make it less easy for mistakes to 
creep in. For instance, it makes sense to define a few routines that handle our 
four-part items as wholes. 

The following two routines plot a station's name at the correct place on the 
screen (subroutine 3000) and compute the distance between two stations 
(FNdist) using Pythagoras's Theorem. 


3000 REM uses s% as a parameter: 

3020 REM displays name at its screen location: 

3030 MOVE wide%(s%)*4, high%(s%) * 4 

3040 TAGON : REM write at graphics cursor 

3050 PRINT name$(s%); 

3060 TAGOFF : REM write at text cursor 

3070 RETURN 

3200 DEF FNdist(s1%,s2%)=SQR((high%(s1%)—high%(s2%)) A 2 + 
(wide%(s1%)—wide%(s2%)) A 2) 


The point of this is to be able to refer to what we think ofasa single thing (a 
station) by one data item, e.g. 


s% = stat%: GOSUB 3000 


to plot a given station. We do not want to keep being forced to remember 
that the computer is in fact treating each item as four separate things. 
Aside benefit comes, as we shall see, when we alter the data format so that 
each station has more than four pieces of information associated with it. We 
may have to alter some of the routines, but we do not have to comb through 
an entire program searching for references that may be incorrect, because 
we can still refer to a single entity by a single datum -— its station-number. 


9.2.3 A tree structure 


Trees and networks are flexible data structures that computer scientists 
have found useful for representing relationships between data elements. 
Neither is part of Basic, but we will pursue our station-data illustration a bit 
further to demonstrate that such things can be implemented in Amstrad 
Basic. 

One rather efficient method of sorting data, and of accessing it, involves 
building up what is called an ordered Binary Tree. 

A binary tree contains ‘nodes’, each of which contains some data. In 
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addition each node has a left pointer and a right pointer. The left pointer 
points to its left-hand branch and the right pointer to the right-hand branch. 
Either one may be absent. If both are absent the node is called a ‘leaf’ node. 
There is one special node, the ‘root’: it is not on any other node's left or right 
branch. Figure 9.1 illustrates this terminology in use. 





Fig. 9.1 An ordered binary tree 
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Liverpool Street |: 


In the diagram, the root node is Fairlop. Barbican, Liverpool Street and 
Newbury Park are leaf nodes. Moorgate has both left and right branches, 
while Barkingside has only a left branch and Hainault only a right branch. 

This tree has one other important property. From any node, if you follow 
down from its left branch, you will only find names which come before it in 
alphabetic order, if you follow its right branch, you will find only names that 
come after it in alphabetic order. 

By following simple rules we can build up a tree of this kind given data ina 
haphazard order. Once we have such a tree we can quickly find whether a 
particular name is in it. This is why binary trees are often used as indexes. 
We can also easily print out the data in the correct order. It is the latter task 
that we illustrate here with an example. 

The following program builds up and displays an ordered binary tree, 
using our station data, thereby accomplishing a sort of their names. 
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Listing 9.1 Binary tree creation 








10 REM KRRKKKK KKK KK KK KEKKKKKEKEKKK KEKE 


11 REM ** Listing 9.1 : Lied 


12 REM ** BINARY TREE CREATION ee 
LS REM 5 III TOI IR I IKK 


60 : 
100 
101 
110 
120 
130 
140 
150 
160 
170 
175 
180 
200 
202 
210 
220 
240 
250 
300 
330 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1250 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1500 
1510 
1530 
1540 
1550 
1560 


REM -- Binary-tree for Station Data: 
ouch$=8 : REM 8 for printer 
MODE 2: BORDER 16 
RESTORE 
READ stations% 
root% = 1 
DIM name$(stations%), tubeline$(stations$) 
DIM high%(stations%), wide%(stations$) 
DIM 1h$%(stations%), rh%(stations$%) 
REM data arrays for tree structure. 
DIM t%(20) : REM stack for routine 1100 
k%=0 : REM counter 
a%=0 : REM initial depth counter 
n% = stations%: GOSUB 1000 : REM read tree 
t%(1)=root% : GOSUB 1100 : REM show tree 
PRINT #ouch’% 
GOSUB 2000 : REM dump out tree. 
END 
REM -- Read-tree routine: 
REM parameters: n%, S%: 
FOR s%=l TO n% 
GOSUB 1500 : REM read one station 
NEXT s% 
RETURN 


REM -- Show-tree procedure: 

REM t%() holds parameters: 

REM uses recursion. 

d%=d%+1l : REM one more level down. 

IF t%(d%) < 1 THEN d%=d%-1: RETURN 

t%(d%+1) = 1h%(t%(d%)) : REM plant left subtree 
GOSUB 1100 REM calls itself 

sst=t% (d%) REM this node% 

GOSUB 1300 REM dsiplay station. 

t$(d%+1) = rh%(t%(d%)) : REM plant right subtree 
GOSUB 1100 : REM recursive call 

REM does lh, then self, then rh. 

d%=d%-1 : REM prepare to rise 

RETURN 


REM -- Show-station routine: 

REM ss% is input. 

k$=k$+1 

PRINT #ouch%, k%;TAB(7);name$(ss%);" ";tubelineS(ss%); 
PRINT #ouch$%, TAB(33) ;high(ss%);" ";wide%(ss$) 
RETURN 

REM -- Read-station routine: 

REM s% is input: 

READ name$(s%), tubeline$(s%) 

READ wide%(s%), high%(s%) 

1h%(s%)=0: rh%(s%)=0 

ns%=s% : GOSUB 1650 : REM link station into tree. 


172 











SOFTWARE DESIGN 





1570 
1580 
1590 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9100 
9110 
9120 
9130 
9140 
9150 
9160 
9170 
9180 
9190 
9200 
9210 
9220 
9230 
9240 
9250 
9260 
9270 
9280 
9290 
9300 


REM insert into growing tree. 

RETURN 

REM -- Link-station routine: 

REM ns% is input; uses next%, r%: 

IF ns%=l THEN RETURN : REM lst one. 

rs=l: newnode$=1 

WHILE newnode% <> 0 
IF name$(ns%) <= name$(r%) THEN newnode%=lh%(r3) 
REM if lesser look down left branch. 
IF name$(ns%) > name$(r%) THEN newnode%=rh$%(r$%) 
REM if greater look down right branch. 
IF newnode%>0 THEN r%=newnode% 
WEND 

REM has now found where to put item ns$% 

IF name$(ns%) > name$(r%) THEN rh%(r%)=ns% ELSE 1h%(r%)=ns% 

RETURN 

REM -- Station-dump routine: 

REM uses k% as input: 

PRINT #ouch’% 

nt = k% / 2 : REM roughly half. 

FOR i = 1 TO n&% 
PRINT #ouch%, i%;TAB(7) ;name$(i%);TAB(25); 
PRINT #ouch$, USING "## ##"; 1h%(i%),rh%(is) 
NEXT if 

RETURN 


REM -- Specimen data (just a small selection): 
DATA 28 

DATA Queens Park, Bakerloo, 65, 95 

DATA Kilburn Park, Bakerloo, 67, 93 

DATA Maida Vale, Bakerloo, 69, 91 

DATA Warwick Avenue, Bakerloo, 71, 89 
DATA Paddington, Bakerloo, 75, 88 

DATA Edgware Road, Bakerloo, 82, 88 

DATA Marylebone, Bakerloo, 89, 88 

DATA Baker Street, Bakerloo, 96, 88 

DATA Regents Park, Bakerloo, 105, 82 

DATA Oxford Circus, Bakerloo, 105, 75 
DATA Piccadilly Circus, Bakerloo, 110, 67 
DATA Charing Cross, Bakerloo, 115, 62 
DATA Embankment, Bakerloo, 116, 55 

DATA Waterloo, Bakerloo, 116, 48 

DATA Lambeth North, Bakerloo, 119, 44 
DATA Elephant & Castle, Bakerloo, 122, 40 
DATA Leytonstone, Central, 169, 98 

DATA Leyton, Central, 169, 91 

DATA Stratford, Central, 169, 84 

DATA Mile End, Central, 167, 76 

DATA Bethnal Green, Central, 161, 75 

DATA Liverpool Street, Central, 151, 75 
DATA Bank, Central, 140, 75 

DATA St Pauls, Central, 136, 75 

DATA Chancery Lane, Central, 132, 75 

DATA Holborn, Central, 122, 75 

DATA Tottenham Court Road, Central, 115, 75 
DATA Oxford Circus, Central, 105, 75 


REM -- plenty more where that came rom! 
Baker Street Bakerloo 88 96 
Bank Central 75 140 
Bethnal Green Central t2 161 
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10 
11 
12 
v3 
14 
35 
16 
17 
18 
19 
20 
21 


22 
23 
24 
25 
26 


27 
28 
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Chancery Lane Central 75 
Charing Cross’ Bakerloo 62 
Edgware Road Bakerloo 88 
Elephant & Castle Bakerloo 
40 
Embankment Bakerloo 55 
Holborn Central 18 
Kilburn Park Bakerloo 93 
Lambeth North Bakerloo 44 
Leyton Central 91 
Leytonstone Central 98 
Liverpool Street Central 75 
Maida Vale Bakerloo 91 
Marylebone Bakerloo 88 
Mile End Central 76 
Oxford Circus Central 75) 
Oxford Circus Bakerloo 75 
Paddington Bakerloo 88 
Piccadilly Circus Bakerloo 
67 
Queens Park Bakerloo 95 
Regents Park Bakerloo 82 
St Pauls Central nS: 
Stratford Central 84 
Tottenham Court Road Central 
75: 
Warwick Avenue Bakerloo 89 
Waterloo Bakerloo 48 


Queens Park 2 4 
Kilburn Park 6 3 
Maida Vale iS 5 
Warwick Avenue 9 14 
Paddington i). SA 
Edgware Road 8 13 
Marylebone 0 410 
Baker Street 0 12 
Regents Park 0 19 
Oxford Circus 20 0 
Piccadilly Circus 0 0 
Charing Cross 21 0 
Embankment 16 26 
Waterloo 0 0 


132 
LES 
82 


122 
116 
122 
67 

19 
169 
169 
151 
69 

89 

167 
105 
105 
75 


110 
65 

105 
136 
169 


115 
1a 
116 


To clarify what is going on, we have included a routine at line 2000 to 


display the data as stored. Let us inspect the data as it is after four stations 
(Queens Park, Kilburn Park, Maida Vale and Warwick Avenue) have been 
added, in that order. We ignore the x and y coordinates, just to keep things 


simple. 
name$ line$ Ih% rh% 
1. Queens Park Bakerloo 2 4 
2. Kilburn Park Bakerloo 0 3 
3. Maida Vale Bakerloo 0 0 
4. Warwick Avenue Bakerloo 0 0 
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Queens Park is at position 1, the root. It has two subtrees, the left one can 
be found at position 2 (Ih% = 2) and the right one at position 4 (rh% = 4)). At 
position 2 is Kilburn Park. This has a right branch (rh% =3) but no left branch 
(Ih% =0). (Later it will have number 6, Edgware Road, on its left branch as 
shown by the sample output.) At position 3 is Maida Vale, and at position 4 is 
Warwick Avenue. Neither has left or right branches yet, so they are leaf 
nodes, though they will acquire subtrees of their own as new data arrive. 

As new nodes are inserted they are threaded into the tree by subroutine 
1650, but Queens Park remains at the root. All that changes is that some of the 
zeros in lh% and rh% are replaced by addresses of newly added stations. 

Thus lh% and rh% are being used as pointers. They give the address of the 
place where the left and right subtrees can be found, or zero to indicate the 
absence of a subtree. We can depict the situation as follows. 





| Fig. 9.2 Tree diagram | 
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The arrows linking this structure together have been implemented by 
integers which point to the correct place in the arrays. By following the 
pointers the program can traverse the structure. Thus we have turned our 
table into a tree, still using only arrays and strings. 

Notice that the routine at line 1100 is recursive. It calls itself. This makes it 
relatively simple to write and, once you get used to recursion, to understand. 
The idea behind it is simple. If the present node has a left subtree, that 
contains names to be printed before it. How better to do so than by calling 
the procedure itself? Then the data at the current node is printed. Finally, if it 
has a right subtree, that is printed too — using subroutine 1100, of course. (See 
also Chapter 4.) 

Here the routine to process a structure works well recursively because 
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the structure itself is recursive. A tree contains subtrees, the left and right 
branches, which are themselves trees. (This is an example of what we mean 
by matching the program structure to the data structure.) As long as the tree 
is built up correctly by subroutine 1650, it will be displayed in the correct 
order by subroutine 1100. 

Data implementation details are comparatively well hidden, since each 
procedure works with a single integer that refers to all the bits and pieces 
that go together as a unit. However we had to introduce a stack, t%(), to 
achieve the recursion in subroutine 1100. The stack is another useful data 
structuring concept, which in this case we implemented using an array. This 
is necessary because each ‘level’ of subroutine 1100 needs its own copy of 
the tree or subtree to be listed. This is held in t%(d%) with d% augmented as 
the recursion descends and decremented as it ascends. (This idea is 
discussed further in Section 9.4.2.) 


9.2.4 A network 


A network is one step further in complexity than a tree. Each node ina 
network can have more than two links, and there is no special root node. 
There may indeed be loops in a network. The Underground system is very 
naturally represented as a network. 

The following shows a small portion of the London Underground as a 
network. 





| Fig. 9.3 Network diagram (London Underground) | 





Bond St Oxford Circus Tottenham Court Rd Holborn 





Piccadilly 
Circus 
Leicester 
Square 





Charing Cross 





176 








SOFTWARE DESIGN 








Since there are only nine stations here, it is possible to represent the 
connections in the network by a two-dimensional array. 











i 2) 8h SAR eB 6h he Be 9, 
1. Bond Street l 1 0 0 l 0 0 0 O 
2. Oxford Circus l l l 0 l 1 0 0 0 
3. Tottenham Court Rd 0 l l l 0 0 l 0 0 
4. Holborn 0 0 l 1 0 0 0 l 0 
5. Green Park l l 0 0 l ] 0 0 0 
6. Piccadilly Circus 0 l 0 0 l l l 0 l 
7. Leicester Square 0 0 l 0 0 ] l it l 
8. Covent Garden 0 0 0 l 0 0 l 1 0 
9. Charing Cross 0): 0% <0e "0 l l ] 0 ] 





We place | in a cell to indicate that two stations are connected, and zero 
otherwise. (We also made the assumption that each station is linked to itself.) 
Thus there is a | at position [6,5] indicating that station number 6 (Piccadilly 
Circus) is linked directly to number 5 (Green Park). At position [4,7] there is 
zero, showing that Holborn is not connected with Leicester Square. 

If necessary we could go further and insert not simply ones and noughts, 
but numbers giving the time taken to go from one to another (with a negative 
value indicating the absence of a direct link) — provided we had that 
information. 

But this is actually a very poor choice of data representation. The trouble is 
that there are 271 stations in the actual network. To link them in this way 
would need a matrix of 271 * 271 = 73441 cells. Most of those cells would be 
empty since no station has more than seven neighbours. 

We can represent this network in a far more economical fashion using 
three separate one-dimensional arrays. Assuming that the average number 
of neighbours is not more than four per station, we can declare 


DIM name{(stations%), link%(stations%), list%(stations% *4) 


where name{() is for station names as before, link%() is for a pointer to a list 
of neighbours of each station and list%() contains the actual positions of those 
neighbours. The connections among the first four of the stations shown above 
in the matrix could be represented as below. 








name$ link% [ refers to list% ] 
1. Bond Street 1 — list%(1) 
2. Oxford Circus 3 = list%(3) 
3. Tottenham Court Rd 6 = list%(6) 
4. Holborn 9 — list%(9) 
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list% [ refers back to name$ ] 








1 VEZ — name$(2) [Oxford Circus] 
yn 

301 — name$(1) 
4, 3 — name$(3) 
5. 0 

6 2 — name$(2) 
amas: — name$(4) 
8 0 

9. 8 — name$(3) 
10. 0 

11. 





Here we are using a value of zero in the list%() array to mark the end ofa 
chain of neighbouring stations. We have also put an explanation of the 
stations linked in brackets after the non-zero entries to help you find your 
way around. The essential point is that numbers in the link%() array refer to 
the list%() array, while numbers in list%() refer back to the name§$() array. 

The routine that follows displays the neighbours of any given station, 
showing how this structure might be put to use. 


2500 REM parameter s% 

2505 REM ------------ 

2510 PRINT “From Station "sname$(s%);” you can reach :” 
2520 s% = link%(s%) 

2525 WHILE list%(s%) <> 0 

2530 PRINT TAB(13);name$(list%(s% )) 

2540 s%™® =s%#+1 

2550 WEND 

2555 RETURN 


With less than ten nodes in our network, the additional work of doing this 
kind of linkage is not worthwhile. But with more than a few dozen nodes, it 
could make the difference between a feasible and an impossible system. 

To sum this section up, we have tried to make two important points. Firstly, 
you can remedy some of Basic's weaknesses in data organization by using 
integer pointers to link up structures of your own devising. Secondly, you are 
well advised — if you attempt to build more complicated structures than Basic 
provides — to hide the fiddly details within particular routines. Then each 
routine performs a simple operation on data elements that you have defined, 
and you can think in terms of operations on structures appropriate to the 
problem rather than structures appropriate to the machine. 
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9.3 When things go wrong 


All nght. You claim to have followed all that advice, and your program still 
does not work. If you hear a grinding sound it is the gnashing of the author's 
teeth. 

In a way you are lucky. At least you know that something is wrong. There 
are plenty of programs around whose users are blithely unaware they are 
getting incorrect results. 

We can start from the assumption that you have found some sort of mistake 
or malfunction — a ‘bug’ in computer parlance. It is helpful to divide program 
bugs into three categories: (1) syntax errors; (2) execution errors; and (3) 
logical errors. Each kind is more serious than the one before. We will deal 
with them in turn. 


9.3.1 Syntax errors 


These occur when the program violates the rules of Basic. Amstrad Basic 
does not detect errors of syntax when a line is typed in, so you have to wait till 
the line is executed for the system to complain that it cannot understand your 
language, and halt the program. 

Syntax errors are normally the easiest kind to deal with. In many cases 
they arise from simple misspellings, typing mistakes, missing commas and 
so forth. Since the Basic interpreter tells you where the error occurred, it is 
usually just a matter of re-typing PRONT as PRINT or inserting a missing 
quotation mark or something like that. 

Occasionally syntax errors are symptoms of a deeper problem. What 
typically happens in such cases is that when the syntax errors are corrected, 
the program still fails to run. 


9.3.2 Execution errors 


Anyone who has taught programming has heard the plaintive cry “my 
program is correct, but it still won't run’, This is a fallacy. The program is 
incorrect. It is important to realize that a program which obeys all the rules of 
Basic may still contain errors. 

Execution errors arise when a program attempts something illogical or 
impossible, even though it is syntactically valid. Typical examples are 
division by zero (error no. 11) and trying to use a subscript outside the 
bounds set for an array (error no. 9). These errors are detected when the 
program is run, whereupon it is halted and an error message is printed out. 
(If you are really unlucky your program may just ‘blow up’ and ‘crash’ the 
system!) 
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If your program crashes, requiring an ESCape to restore the system to 
operation, you will not get the error message you need to help pinpoint the 
source of trouble. But even when you do know exactly where the program 
stopped you may need to track down the source of the problem elsewhere. 
Quite possibly the statement that failed is correct, but because another part 
of the program did not do its job properly it cannot do what it is supposed to. 
A common example is the ‘DATA Exhausted’ condition (error 4). This may 
signal an error at a line containing a perfectly valid READ statement, 
because a DATA statement somewhere else in the program is incorrect or 
missing. 

As a general rule, if the error is complex enough to puzzle you, the 
program's author, it will also confuse the computer; so you must be prepared 
for diagnostic messages that lead you astray if taken at face value. 


9.3.3 Logical errors 


Logical errors do not cause a program to fail, but make it produce the wrong 
answers. Generally speaking they are symptomatic of poor design. 
Unfortunately there is nothing to guarantee that a program consisting 
entirely of valid Basic statements which runs successfully to completion is 
actually producing the right results. So after assiduously removing all the 
syntax errors and making the changes necessary to let it run you may be left 
with a program whose output is waste paper. What do you do then? 

The first thing is to take a deep breath and wrench yourself away from the 
computer. Invite another member of your family to play their favourite 
alien-zapping game on it. This will ensure that you do not succumb to the 
almost overwhelming urge to dive into the program and hack away like a 
peasant with a machette. That will only confuse the situation still further. 

It is time for thinking, not hacking. So get a listing of the program, a printout 
of its results and a copy of the test data used and retire to a quiet corner to 
ponder your next move. (Test data? You never heard of that? Well, it is about 
time you did.) Only return to the computer when you have a firm hypothesis 
that could explain the program's misbehaviour and you know how your are 
going to test it. 


9.3.4 A debugging strategy 


Inthis book ‘debugging’ isa dirty word. It is something to be ashamed of. You 
do not boast about all-night debugging sessions to your cronies, because that 
it is evidence that your program was poorly designed. However, we 
sometimes do things we are not proud of, and if you insist on debugging at 
least you can do it methodically. 

There are three stages in getting rid of a logical error: firstly detecting its 





180 


SOFTWARE DESIGN 











existence; secondly finding where it is; and thirdly putting it right. None of 
these need be very simple. 

The first stage involves thorough testing. Devising really stringent test 
cases (and checking the output they lead to) is hard work. Very often it is 
skimped. Surprisingly many programs appear on the market from reputable 
suppliers simply riddled with bugs that escaped quality control. The 
customers are then left to do the field testing. 

Since the authors of programs tend to be blind to their faults, a good rule of 
thumb is simply to show your work to a colleague or friend, or better still to 
let someone else use it for a while. You will be amazed how protective you 
have been towards your brainchild — never subjecting it to invalid input, 
never giving it too many or too few items of information, making all sorts of 
allowances (even without realizing it) for its shortcomings and, in brief, only 
testing it on the restricted class of data you already knew it could handle. A 
little rough treatment will do it the world of good. Schoolchildren are 
particularly adept at testing software ‘to destruction’, so if you can persuade a 
12-year-old to have a bash at your program its weak spots will soon become 
glaringly apparent — though informal trial by ordeal is still no substitute for 
systematic testing of modules as they are created. 

Having found something amiss you still need to know what part of the 
program is responsible. The art of debugging lies in forcing the program to 
reveal its behaviour patterns — which variables are being changed, which 
are not being changed, which paths are being selected, which are not being 
selected, and so on. If the program crunches to a halt you can use Basic's 
PRINT statement in direct mode to examine the values of key variables. But 
in general you may have to insert additional PRINT statements to display 
information that the program would not normally print out since, as 
mentioned earlier, the place where the program fails may not be the place 
where it went wrong. You can also use TRON and TROFF, but that is a 
‘scatter-gun’ technique which produces mounds of indigestible output 
unless you know where to concentrate your search. 

The tricky bit is to decide where to start looking. Here, as elsewhere, 
‘divide and conquer’ is a good rule. Ifa program or module is misbehaving it 
must be going wrong in the first half or the second half. (It could be wrong all 
through, but let's not be too despressing.) So you make it display some 
intermediate results about half way through. “Aha!” you exclaim: “it got this far 
all right" or “Oh dear! It has gone wrong already”. (Some programmers 
believe that stronger language aids the solution process, but this has yet to 
be scientifically proven.) 

In either case, you can now repeat the search in the top or bottom half, 
using the same principle as the Method of Bisection (Chapter 4), and thereby 
halving the area of uncertainty at each stage. Finally, when you have 
narrowed it down to a single statement, the error — which you have probably 
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looked at several times before but somehow never noticed — leaps out and 
bites you like a cornered rat! 

Incidentally, do not feel that time spent not finding errors is entirely 
wasted. You have made some progress when, as the police say, a suspect 
has been ‘eliminated from enquiries’. 

Finding an error is one thing: getting rid of it is quite another matter. 

Broadly speaking, you will experience one of two contrasting emotions 
when, after diligently hunting, you finally trace a logical error to its root cause 
— irritation because you are amazed you overlooked something so trivial, ora 
sinking sensation as you realize a gross oversight in your original design. Let 
us consider the more problematical alternative, when there is no 
straightforward ‘fix' because by fixing this one error other inadequacies will 
be exposed. What this means is that your program does not solve the 
problem it was intended to solve. This is difficult to admit, and we are all 
prone to spend to much effort delaying the admission as long as possible, 
even if it means an interminable series of fixes, each one generating the 
need for another. Yet if your program is flawed you must be prepared to go 
back to the drawing board and re-examine your original assumptions. There 
is no point in throwing good money after bad. The reasonable attitude is to 
salvage as much as can be salvaged (those routines that do work) and throw 
away the rest. It will be easier to write the second time round because your 
understanding of the task has increased. Some programs are just ill-fated 
and have to be scrapped. Make sure you know when the time has come to 
cut your losses and start afresh. 

Finally, a word about back-up and recovery: even a perfect system cannot 
work after somebody has soaked the master disc in coffee. Therefore your 
programs must dump security copies of important information from time to 
time, and be able to catch up to the state they were in before the blunder 
occurred without re-entering months’ of input. In other words you must 
anticipate mistakes on the part of the user. Asa rough estimate, a truly robust 
software system will devote 80% of its work to protecting the users from 
themselves. 

Two good sources of further reading on these subjects are Software 
Design for Microcomputers (Ogdin, Prentice-Hall, 1978) and A Guide to 
Good Programming Practice (Meek, Ellis-Horwood, 1980), 


9.4 Basic with style 


Programming isa craft. As you gain experience you will want to impose your 
own standards of craftsmanship. The recommendations we have made in the 
preceding three sections — on program structures, data representation and 
debugging - are ignored at your peril. But even within the disciplines of 
structured programming there is plenty of scope for individuality. 
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You have examples in this book of two different author's styles. Some 
decisions are largely a matter of taste. We both believe in descriptive 
variable names but we do not choose the same names. One of us prefers to 
use integer variables whenever whole numbers are being used, the other 
does not always consider it worthwhile. We prefer lower case variable 
names on the whole because it helps keywords to stand out visually, thus 
revealing the statement structure, but both of us have on occasions found 
reason to employ capitalized variable names. We both like REMs to stand 
out, but have different ways of doing it. 

These are legitimate areas for personal flourishes, so we make no apology 
for presenting the reader with a mixture of programming styles. In fact we 
hope it will prove instructive. But there are certain points of style which are 
less a matter of personal preference: these are to do with overcoming the 
deficiencies of Basic as a structured programming language. 


9.4.2 Structural weaknesses in Basic 


Amstrad Basic is a big improvement on the original Basic of the 60s, and on 
some versions that are still around in the 80s, but it is by no means the last 
word. It does not, for instance, go as far in the right direction as Comal, a 
structured form of Basic defined in 1980 by Borge Christiansen in Denmark. 
It has two particular limitations as a structured language. 

In the first place, the IF-THEN-ELSE can only be used on a single line. 
There is no ENDIF to close the decision structure, as there is in some more 
advanced languages. It would be better if one could write 


IF condition THEN 
statement 
statement 


ELSE 
statement 
statement 


ENDIF 


without having to cram everything into 255 characters. After all, WHILE/ 
WEND can be used ina similar way to bracket together a series of statement 
lines. However, Locomotive Basic cannot handle this kind of structural 
grouping for conditionals. The best way round the problem is to define a 
couple of procedures, one for the THEN branch and one for the ELSE. 


IF condition THEN GOSUB 1000 ELSE GOSUB 2000 


A second structural weakness is that you cannot avoid the use of global 
variables as there is no way of having true parameters or LOCAL variables, 
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i.e. variables that are private to the routine and have no connection with 
variables of the same name in other modules of the program. Nevertheless 
you can take sensible precautions: (1) adopt a sensible naming convention 
(e.g. that single-letter variables are ‘scratch pads’ whose values cannot be 
relied upon to remain the same over a subroutine call); and (2) comment all 
uses of global variables in subroutines with REM statements. 

Some of these ideas are illustrated in Listing 9.2. 





Listing 9.2 Recursive pattern 





10 REM 2 III GIGI io 


11 REM ** Listing 9.2 : a 
12 REM ** RECURSIVE PATTERN = 
15 REM [ZEB RRSESESESESE SESE SERA S ESE SS 
60 : 

100 REM -- Recursive Squares: 


110 INPUT "Square size ", r 

120 MODE 1: BORDER 23 

122 GRAPHICS PAPER 0 

125 DIM x(20),y(20),size(20) 

130 d%=0 : REM depth marker 

140 size(1)=r 

150 x(1)=INT(RND*100 +256 

160 y(1)=INT(RND*100)+120 

170 REM -- top-level call: 

200 GOSUB 1000 : REM sq. routine 

220 END 

250 : 

1000 REM -- Reci.xsive square drawing routine: 
1001 REM d% depth counter (for stacking) 
1002 REM x(), y(), size() pseudo-parameters 
1005 REM r is altered in routine. 

1010 d%=d%+l: IF d%>20 THEN STOP 

1020 IF size(d%)<7 THEN d%=d%-1: RETURN 
1030 REM -- one more level down: 

1040 MOVE x(d%),y(d$%) 

1050 r = size(dt) 

1055 GRAPHICS PEN d% 

1056 IF d% MOD 4 = 0 THEN GRAPHICS PEN 1 
1060 DRAWR -r,r 

1070 DRAWR r,r 

1080 DRAWR r,-r 

1090 DRAWR -r,-r 

1100 REM -- plant parameters for lower-level calls: 
1110 size(d%+1)= r/2 

1120 x(d%+1)=x(d%)-r: y(d%+1)=y(d%)-r 
1130 GOSUB 1000 ; REM lst recursive call. 
1140 y(d%+1)=y(d%)+size(ds) 

1150 GOSUB 1000 

1160 x(d%+1)=x(d% )+size(d$%) 

1170 GOSUB 1000 

1180 y(d%+1)=y(d% )-size%(d$%) 

1190 GOSUB 1000 

1200 d%=d%-1 : REM now ascend again. 

1220 RETURN 


Recursive subroutines in a language like Amstrad Basic which does not 
properly support recursion by providing procedural parameters and local 
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variables are generally considered too hard to bother with. The trouble is 
that each copy of the subroutine needs its own copies of the values it is work- 
ing with. Using global variables in a simple-minded way would mean that 
lower-level calls of the routine would scratch out information needed at 
higher levels. 

However, once you know the technique, it is possible to do for yourself in 
Basic what other languages do for you ‘behind the scenes’. The essential 
concept is the stack, as mentioned in Section 9.2.3. A stack is a data structure 
where all accesses — additions and removals — take place at one end, the 
front. It imitates a spring-loaded pile of plates in a fast-food cafeteria. 

By stacking and unstacking values for the plotting routine (at line 1000) as 
the recursion descends and rises, we ensure that the values in x(d%), y(d%) 
and size(d%) are appropriate to the current level of working. The level is 
defined by d% (a global variable, inevitably) which is incremented on entry 
to the subroutine and decremented on exit. This technique is quite general, 
and a useful way of helping to overcome one of Basic's greatest weaknesses. 

The program draws pretty pictures by repeatedly superimposing smaller 
squares on top of larger ones and changing colours as the size decreases. 
The basic shape is drawn together with smaller shapes of the same kind. 
Although entirely predictable, it is unexpectedly pleasing to the eye. By 
altering the basic shape (here simply a square, drawn in lines 1060 to 1090) 
you can experiment with a whole family of different but related designs. (Try 
a triangle first; then think of some other shapes.) 


9.4.2 Working with Basic 


We finish this chapter with a short list of practical tips. Basic does impose a 
number of constraints, but you can learn to live with them. Good 
programming style, as we have tried to explain, attempts to make the most of 
the resources of the language and minimize its defects. The following points 
should help you work with Basic rather than against it; thereby making it 
work for you, rather than against you. 


1. Avoid spaghetti programs - those so littered with GOTOs that it is 
impossible to perceive the logical flow. (Lasagne is far healthier!) 


2. Pick line numbers with care. Start important sections of program on 
hundreds or thousands. If you must use GOSUB, the GOSUB 2500 is likely to 
mean more than GOSUB 1789. (Yes we know about the French Revolution, 
but you could be guillotined for lesser offences in those days.) Incidentally, 
this suggests that you do not go in for RENUMbering as a matter of course. 


3. Choose variable names that describe their purpose. Long variable 
names do take up a little more space than short ones but to stick to one or two 
character names is to place yourself under an unnecessary disadvantage. 
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4. Resist the temptation to compose programs ad lib on the keyboard. 
Plan them in advance. With large programs, try out a scaled-down version 
before embarking on the production model. 


5. Do not throw away the listing of a working program as soon as you have 
‘improved ' it. You may need to backtrack later. This implies that a printer is 
the first peripheral you will want to buy. 


6. Force yourself to insert REM statements and blank spaces and blank 
lines when typing in a program: you will be glad of it later. You can always 
get a cruncher program to squeeze them out later if you are really worried 
about speed or space-saving. 


7. Eschew clever tricks that may save milliseconds of processor time or a 
few bytes of coding but waste many hours of human effort because they are 
so obscure. The best style is the simplest. 


8. Ensure that your algorithms work on limiting cases such as empty files 
or arrays with only one element, not just on ordinary run-of-the-mill data, and 
that they take precautions against input they cannot deal with. They should 
say when they cannot handle some input, rather than just grinding to a halt. 


Lastly, a word about attitude: some readers may have been surprised by 
how often words like ‘encouragement’, ‘temptation’, ‘frustrated’ and 
‘patience’ cropped up in this chapter. This is no accident. Although 
programming is commonly viewed as a coldly rational process devoid of 
emotional content, programmers are all animals like the rest of us. By 
approaching the job with the right attitude you can behave more like a 
rational animal than an irrational one, and more like a human than a machine. 


10 
Case study 


BASIC IN ACTION 


The last chapter amounted to a sermon on the commandment “thou shalt not 
write ill-structured programs’. Now it is time for us to practise what we 
preach, and apply our recommendations by working through a reasonably- 
sized example. 

Programming case studies in textbooks are inevitably somewhat artificial, 
like still frames taken from a moving picture. There is never space to 
describe all the fits and starts of the design process. Nor would most readers 
have the time to plough through the intimate confessions of a software 
designer in unexpurgated detail. 

Nevertheless we believe it is important to take a non-trivial program from 
concept to completion, giving a blow by blow account of its progress, even 
including a few backward steps. That way you can, as it were, look over the 
programmer's shoulder and gain some insight into the craft of programming. 


10.1 The plan 


Our objective is to write a program that plays a code breaking game based 
on ‘Mastermind’ (copyright 1972, Invicta Plastics Ltd.). It is a small enough 
problem to fit in the space, and time, available; but it is not trivial, so it will call 
upon some of the disciplines of structured programming outlined in Chapter 
9. It has certain other points in its favour too. 


It provides the opportunity for a splash colour. 

It does not need discs, so our tape-based readers can profit from it. 

It requires careful thought about solution strategies. 

It provides a framework around which many readers will be able to 
develop other games of their own. 


Above all, it is fun to play. 
To recap, briefly, on the rules. The game is played by two players. One 
makes a secret ‘code’ which is a combination of 4 of the 7 permitted colours, 
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and the other player tries to guess this code. The seven colours to pick from 
are: Red, Green, Blue, Magenta, Cyan, Pink and Yellow. (On screen Cyan 
appears as a lighter blue than Blue.) A code is represented by a row of four 
coloured pegs. Any four colours may be used from the seven, and repeats 
are allowed, so 


Red Red Red Red 

Blue Green Blue Cyan 

Red Yellow Green Blue 

Magenta Magenta Pink Pink (Yuk!) 





are all permissible codes. 

The guessing player makes a guess, a four-colour combination, which the 
code-maker scores in terms of ‘Blacks’ and ‘Whites’. A black is given for a 
peg of the correct colour in the correct place; a white is given for the correct 
colour in the wrong place. Note that no peg may be scored more than once, 
so the number of blacks plus whites should equal the number of correct 
colours, ignoring position. Four blacks means a correct guess. 

Ten guesses is the maximum allowed. Players take turns in being code 
maker and code breaker. 

We shall require the program to play a dual role, not just making codes for 
the user to break and scoring the user's guesses, but also breaking codes 
itself, Code breaking is the more demanding part, since for people it 
requires some reasonably challenging brainwork. 

But there is no need for us to delve deeply into Artificial Intelligence, as 
long as we recognize one point, which will be the key to the machine's 
code-breaking strategy: the colour-codes can be interpreted numerically. 

A row of four pegs from seven colours can be regarded as a 4-digit 
number expressed to the base of 7. We use decimal numbering in daily life, 
but computer people are also accustomed to counting in the hexadecimal 
(base 16), octal (base 8) and binary (base 2) number systems. 

Base 7 is not such a peculiar idea. Instead of the columns denoting units, 
tens, hundreds (10 x 10), thousands (10 x 10 x 10) and so on, they denote 
units, sevens, 49s (7 x 7), 343s (7 x 7 X 7) and so on. By coding our seven 
colours numerically 


red 
green 
blue 
magenta 
cyan 
pink 
yellow 


Dananrwnro 


we can interpret any code such as 
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CASE STUDY 








blue blue green cyan 


as the expression of a base-7 number. In this case the number is 2214, 
which has the decimal value of 795 = 2 x 348 +2 x 49+ 1x 7+4= 686+ 98 
+ 7+ 4. (We could have chosen other colouring schemes; but this one gives 
a fair range of hues which are not easily confused - unless you have a 
monochrome screen.) 

Where does this excursion into base-7 arithmetic get us? 

Well, one thing it tells us is that there are only 2401 possible codes, since 
3436 + 49x6 + 7X6 + 6 = 2400. The computer can maintain a list of all the 
2401 possibilities and simply cross off the ones that do not fit the facts as each 
guess is scored. A human would not want to keep track of 2401 different 
combinations, but for the machine this is quite straightforward. 

At every stage in the game the computer needs to know whether each 
combination is still possible or not. This is just one bit of information: it could 
be represented as 0 or 1, so in theory all we need to do is set aside 2401 bits 
or just over 300 bytes of memory to keep track of the status of the game. In 
practice it is far simpler to avoid bit-twiddling and use a whole integer (16 
bits) for each possibility. Then by declaring 


DIM code%(2400) 


we can Set up an array where each location records the status of a particular 
four-colour combination. Thus, for instance, the status of the combination 


cyan red yellow blue 
will be held at location 
4x 348+0x49+6x7+2 = 1416 


in the vector. We will use zero to indicate that a code is not yet ruled out by 
the information so far and one to indicate that it is no longer possible. 

Thus our solution strategy is a method of elimination. 

What we have done is make a decision about data structuring before even 
starting on the program design. This is quite normal, and indeed desirable. 
Before going further, however, it is as well to point out that there are other 
ways of doing it. A fixed 2401-item vector has certain disadvantages. For 
example, what if we wanted eight colours instead of seven? Then we would 
need 4096 locations, and it might be worth reducing this to 512 bytes by 
bit-packing. With ten colours we would need 10000 locations. At some point 
the system would cease to be practicable, taking too much memory space 
and too much time to process. But then again, the game itself would be 
become unwieldy; and there are really only about 8 distinguishable colours, 
discounting ‘flashing colours’, to display on the Amstrad microcomputer 
anyway. 
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For the moment we will press ahead with this key decision. If it works, we 
can stick with it; if (heaven forbid!) it proves impractical, we must be 
prepared to return and alter it. That means that we ought to hide the details of 
the data representation as far as possible in case we have to change it later. 

We will also make a scheduling decision (see Section 9.1.4). We will split 
up the implementation into two main phases: firstly we will do the simpler 
task, getting the computer to set the code and the user to solve it; only when 
that is done will we implement the harder part, making the computer solve 
our codes. The third phase - enhancement of the game's performance - will 
be left as an exercise for the reader! 

The first phase allows us to create a framework for the program and test a 
number of essential subroutines before tackling the difficulties of automating 
the solution process. In effect, we postpone the tricky bits until we are good 
and ready for them. 

Finally, we make one practical decision, to use Mode 0 for the screen 
display rather go for high-resolution graphics. Actually this is forced on us by 
the need for at least seven distinct colours. It also means that the character 
shapes used to represent the pegs are nice chunky patches of colour. 


10.2 The program: version 1 


Now we can proceed to design the program. We start at the top, with the 
main line. 


200 MODE 0 

220 DIM code%(2400) 

230 GOSUB 2300 : REM initialization 

300 PRINT “Do you want to start first (Y/N)? ”; 
310 GOSUB 2000 : h% = yeah% 

315: 

320 htot%=0 : ctot% = 0 : REM total guesses. 
322 c% = 0:g% = 0: REM games played. 
323 endgame% = 0 

325 REM —-- main loop: 

330 WHILE endgame% = 0 

333 REM -- person making code: 

340 IF h% THEN GOSUB 2200: GOSUB 4000: g%=g%+1 
360 REM -- computer making code: 


370 CLS 
380 GOSUB 2500 : REM own tum 
390 h% =1 


395 REM always TRUE after Ist cycle. 
400 c%# =c% + 1 
410 GOSUB 3700 : REM score-keeping routine 
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420 PRINT “Stop now (Y/N) ? ”; 

430 GOSUB 2000 : endgame% = yeah% 
440 WEND 

450 PRINT 

460 GOSUB 5500 : REM Say goodbye 

470 END 

480 : 


This is complete top-level outline. The guts of the system is lines 330 to 440. 
This is a loop in which each side takes turns to set the code. The two critical 
routines are 


4000 -- computer guesses person’s code 
2500 -- person guesses computer’s code 


and we will ignore the first one completely until the second is fully 
operational. We can still test the logic of the program because on the first 
cycle round the loop the person can opt to skip the code-making part. The 
logic is also presented diagrammatically in Fig. 10.1. 





| Fig. 10.1 Diagram of code-game logic 
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The other undefined routines are as follows. 


2300 global initialization 

2200 prepares for a new game 

3700 displays the latest score for both sides. 
2000 accepts a Yes or No answer only 

5500 signs off. 


None of these presents serious complications. The interesting part is 
subroutine 2500. This will have to select a combination for the code at 
random (fairly simple) and then go into a loop, obtaining the user's next 
guess and scoring it until the user gets it right or has had too many goes. We 
have set the limit at ten attempts. 

Obtaining the user's guess is not conceptually complex, but it requires 
some thought about the method of input and output. Users do not, on the 
whole, take kindly to having to type words like 


magenta 


without spelling mistakes. So we will let the user compose the latest guess on 
screen, one peg at a time, using single keystrokes. This only requires use of 
three keys. 


SPACE BAR change to the next available colour. 
RETURN move on to the next peg 

(or finish after the 4th). 
DELETE go back to the previous peg. 


and has the advantage of visual feedback. The DELETE option allows the 
user to change his mind or correct mistakes. The SPACE bar lets the user 
cycle through the colours one by one. Therefore it does not require 
memorization of what hues are available. As we pointed out in Chapter 6, it is 
a good idea only to present the user with valid choices when this can be 
arranged, and here it can. The RETURN key moves through the pegs from 
left to right. After the 4th peg, pressing RETURN causes acceptance of the 
current guess. 

Scoring the user's guess in terms of blacks and whites will require two 
additional routines, one to count exact matches (right colour in the right 
place) and one to count partial matches (right colour in any place). The 
scoring functions must take care not to count one peg twice. For example, if 
there is one red in the code and two in the guess (one in the correct position) 
the user only gets a black, not a white as well. 

Here then is the listing of the program at the end of the first day. 
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CASE STUDY 














Listing 10.1 Codegame, Version 1 





10 R 
11 R 
12 R 
15 R 
60 : 
100 
110 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
480 
500 
520 
550 
999 
1000 
1010 
1100 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2200 
2220 
2230 
2240 
2250 
2280 
2300 
2310 
2320 
2330 
2340 
2360 
2370 
2380 
2390 
2400 
2410 
2420 


EM ROI III II ICI 


EM ** Listing 10.1 : x 


EM ** CODE GAME, VERSION 1 hada’ 
EM RGGI III III IO 


REM -- Code-breaking Game: 

MODE 0: BORDER 15 

size%=2400 : REM main array limit 

DIM hues$(6) : REM colour names 

DIM code%(size%), a%(4),x#(4),y%(4) 

GOSUB 2300 : REM initialization 

PRINT "Welcome to the code-making game:" 
PRINT 

PRINT "Would you like some instructions (Y/N)? "; 
GOSUB 2000: h%=yeah% 

IF h* THEN CHAIN "INSTRUCT" 

PRINT 

PRINT "Do you want to start first (Y/N) ? "; 
GOSUB 2000 : h%=yeah% 


htot%=0: ctot%=0: c%=0: g%=0 
endgame %=0 


REM -- Main loop: 
WHILE endgame%=0 
REM -- Person making code: 
IF h% THEN GOSUB 2200: GOSUB 4000 : g%=g%+1l 
REM -- Computer making code: 
CLS 


GOSUB 2500 : REM own turn 
h¢=1 : REM always TRUE from now on. 
ct=ch+] 
GOSUB 3700 : REM scoring 
PRINT "Had enough (Y/N) ? "; 
GOSUB 2000 : endgame%=yeah$% 
WEND 
PRINT 
GOSUB 5500 : REM goodbye 
END 
REM -- Colour data: 
DATA red,green,blue,magenta,cyan,pink, yellow 


REM -- Yes/No Routine: 

yeah$=88 : REM neither true nor false 

WHILE yeah%<>0 AND yeah%<>1 
yS=INKEYS$: IF y$="" THEN GOTO 2030 
IF yS="Y" OR y$="y" THEN yeah$=1 


IF y$="N" OR y$="n" THEN yeah%=0 
WEND 
PRINT y$ 
RETURN 
REM yeah% contains result (1 or 0). 
REM -- Set-board routine: 
CLS 
FOR i%=0 TO size% 
code%(i%)=0 : NEXT 
RETURN 
REM -- Initialization routine: 
blob$=CHR$(143) : REM peg character 
baset=1 


FOR i%=0 TO 6 
READ hues$(i%) : REM hue-names 
NEXT if 
INK 0 
INK 1 
INK 2 
INK 3 
4 
5 


PAPER 0 


INK 
INK 
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2430 
2440 
2450 
2460 
2470 
2480 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2615 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2720 
2800 
2810 
2820 
2830 
2840 
2850 
2855 
2860 
2870 
2880 
2888 
2890 
2900 
2910 
2920 
2925 
2930 
2935 
2940 
2950 
2960 
2970 
2980 
2990 
2995 
2999 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 


INK 6,16 

INK 7,24 

REM inks set to correspond with names. 
INK 8,22 

RETURN 


REM -- Own-turn routine: 
PRINT: PRINT "Computer making code :" 
PRINT 
goes$=0 
FOR p%=1 TO 4 
a%(p%) = INT(RND*7) : REM 0 to 6 
NEXT p% 
b%=0 : REM no. of “blacks”. 
WHILE b%<4 AND goes%<10 
goest=goes%tl 
GOSUB 2800 : REM get guess 
REM guess now in y%(). 
GOSUB 3500 : REM copy into x%() 
GOSUB 3300 : REM show code 
GOSUB 3000 : REM exact matches 
GOSUB 3100 : REM partial matches 
b%=matches% : wt=partial%-matches% 
GOSUB 3600 : REM feedback 
WEND 
GOSUB 3200 : REM message 
htot%=htot%+goes* 
RETURN 


REM -- Get-guess routine: 
REM puts human guess into y%(): 
vertt=goes%*2 + 2 
FOR pegs%#=l1 TO 4 
guessed%=0: x%=99 
WHILE x%#<>13 
PEN 8 
LOCATE 1,vert%: PRINT goes$%; 
horz%=pegs%*2 + 4 
LOCATE horz%,vert% 
x%=99 
PEN guessed%+l: PRINT blob$ 
WHILE x%<>13 AND x%<>32 AND x%<>127 
cS=INKEYS$: IF c$="" THEN GOTO 2910 
x%=ASC(c$) 
WEND 
IF x%=32 THEN guessed%=guessed$%+1l 
CLEAR INPUT 
REM space steps onto next hue. 
IF x%=127 THEN pegs%=pegs%-l: PRINT CHR$(7); : REM delete 
IF guessed%>6 THEN guessed%=0 
WEND 
y% (pegs )=guesseds% 
NEXT pegs% 
PEN 8 : RETURN 


REM -- Exact-matching routine: 

REM a%() is answer, y%() is guess. 

matches%=0 

FOR emt=1 TO 4 
IF a%(em%)=y%(em%’) THEN matches%=matches%+l 
NEXT 

RETURN 

REM with matches$. 


REM -- Partial-match routine: 
partial%=0 
FOR pm$=l1 TO 4: 33%=1 
WHILE 33%<=4 
IF a%(pm%)=y%(jj%) THEN partial%=partial%+1l: y%(jj%)=99: jj%=4 
jj%=jj8+1 
WEND 
NEXT 
RETURN : REM with partial$% 


REM -- Message routine: 
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3210 REM end of human’ guessing: 

3220 IF b%<4 THEN PRINT "You failed !!";CHR$(7) ELSE PRINT “Got it in";goes%;"go 
es." 

3230 PRINT: PRINT “The answer was:" 
3240 FOR ii%=l TO 4 

3250 p%=a%(ii%): PEN p%t+l 

3260 PRINT blob$;" ";hues$(p%) 

3270 NEXT 

3280 PEN 8 

3290 RETURN 

3295 : 

3300 REM -- Show-code routine: 

3310 vert% = goes%*2 + 2 

3320 FOR ip%=l TO 4 

3330 horzs=ip%*2 + 4 

3340 jj%=x%(ips): PEN jj%+base% 

3350 LOCATE horz%,vert% 

3360 PRINT blob$;" "; 

3370 NEXT 

3380 PRINT : PEN 8 

3390 RETURN 

3400 : 

3500 REM -- Save-copy routine: 

3510 REM makes copy of y%() in x%(): 
3520 FOR i%=1 TO 4 

3530 x% (i) =y% (is) 

3540 NEXT 

3550 RETURN 

3560 : 

3600 REM -- Feedback routine: 

3610 REM vert% is global: 

3620 LOCATE 1,vert%+1 

3630 PEN 15 : PRINT "Blacks:";b%; 

3640 PEN 8 : PRINT “Whites: ";w% 

3650 RETURN 

3660 : 

3700 REM -- Scoring routine: 

3710 REM shows average score of both players: 
3720 REM globals: c%,g%,ctot%,htot$ 
3730 IF ct<l OR g*&<1 THEN RETURN 

3740 REM quit if human hasn‘t tried. 
3750 them = htot / c% 

3760 us = ctot% / gh 

3770 PRINT 

3780 PRINT TAB(8);"Games";TAB(16);"Score" 
3790 PRINT "You";TAB(8) ;c%;TAB(16);them 
3800 PRINT "Me";TAB(8) ;g%;TAB(16) ;us 
3810 PRINT CHR$(7) 

3820 IF us < them THEN PRINT "I’m winning!!" 
3830 IF us > them THEN PRINT "You “re ahead!" 
3840 PRINT 

3850 RETURN 

3880 : 


At this point it could set a code for the user to guess and score the user's 
guesses correctly. 

The most important procedure is on lines 2500 to 2700. This uses a 
subroutine, at lines 2800 to 2995, which obtains the user's next guess in the 
manner described above. It also uses two matching routines 


3000 : REM exact matches 
3100 : REM partial matches 


to compare the actual code with a guess. 

The exact match routine is simple: it just steps through the two arrays a%() 
and y%(), incrementing a counter where they are equal. The partial 
matching function is a little more involved. It contains a WHILE/WEND loop 
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within a FOR loop, to go through the second array for each position in the first 
one. The inner loop stops when it finds a match or when it has looked at all 
four items in y%. If it does find a match, it actually changes the contents of the 
matching location (line 3140) to make sure that no peg is counted more than 
once. So the y%() array may be altered as a result, which is why it is copied 
into x%() for later use (line 2615). 

The various ink colours are set up on lines 2370 forwards. An eighth colour 
(pastel green) is selected for system messages, and a ninth (orange) for 
the border. If you look at the initialization routine, you will see that line 
2310 


blob$ = CHR$(143) 


sets up the image of a peg. This is one of the Amstrad's block-graphic 
characters — just a rectangular block. The words naming each colour are 
stored in the string array hues$(). 

At this stage the code%() array is not in use, but three small arrays a%, x%, 
and y% are declared on line 220 for holding the answer and the guess and for 
temporary working storage. 


10.3 The finished program [CODEGAME] 


Now we come to the hard part - making the computer guess codes for 
itself. 

The reasoning behind the method adopted is as follows. When a guess is 
scored, say with 1 black and | white, it is compared for exact and partial 
matches with the unseen code. Therefore by comparing a guess with any 
possible combination you can determine whether that combination could 
conceivably be the answer. Assume that combination is the answer, and 
score the guess accordingly: if it gets a different score from the one actually 
awarded it could not possibly be the answer; if it receives the same score, it 
still could be. Each time a guess is made and scored a large number of 
candidates for the hidden code can be eliminated, rapidly converging on 
the correct answer (so long as the user computes the score accurately). 

A worked example may make this plainer. 


CODE : Blue Blue Cyan Magenta 

l 2 3 4 
GUESS : Blue Green Blue Red 
SCORE : Blacks = 1; Whites = 1 


[Blue 1 : Blue 1 ; Blue 2: Blue 3] 
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POSSIBILITY 1: Blue Green Green Green 


1 2 3 4 
GUESS : Blue Green Blue Red 
SCORE : Blacks = 2; Whites = 0 


[Blue 1 : Blue 1; Green 2: Green 2] 





POSSIBILITY 2: Blue Yellow Yellow Green 


i 8 3 4 
GUESS : Blue Green Blue Red 
SCORE; Blacks = 1; Whites = 1 


[Blue 1 : Blue 1 ; Green 4: Green 2] 





The first possibility cannot be the secret code because if it were the score for 
that guess would have been different, 2 and 0 instead of 1 and 1. So it can be 
eliminated from further consideration. The second possibility cannot be 
ruled out yet — even though it is in fact not the answer. 

Let us now look at the program at the end of the second day to see how 
these ideas are put into practice. 





| Listing 10.2 Codegame, Version 2 





10 REM BERK RRR KEKE KK KKKKEKKEKEKKKEKKEEKEK 


11 REM ** Listing 10.2 : ** 
12 REM ** CODE GAME, VERSION 2 ae 
15 REM KKEKKKEKKKKKKKKKKKKKKKKKKKKKKKKEK 
60 : 


100 REM -- Code-breaking Game: 

110 MODE 0: BORDER 15 

200 size$=2400 : REM main array limit 

210 DIM hues$(6) : REM colour names 

220 DIM code$(size%), a%(4),x(4),y%(4) 

230 GOSUB 2300 : REM initialization 

240 PRINT "Welcome to the code-making game:" 

250 PRINT 

260 PRINT "Would you like some instructions (Y/N)? "; 
270 GOSUB 2000: h%=yeah% 

280 IF h% THEN CHAIN "INSTRUCT" 

290 PRINT 

300 PRINT "Do you want to start first (Y/N) ? "; 
310 GOSUB 2000 : h%=yeah% 

320° 

330 htot%=0: ctot%=0: c%=0: g%=0 

340 endgame%=0 

350 REM -- Main loop: 

360 WHILE endgame%=0 


370 REM -- Person making code: 
380 IF h% THEN GOSUB 2200: GOSUB 4000 : g%=g%+1l 
390 REM -- Computer making code: 


400 CLS 





THE PROGRAM: VERSION 2 





197 





410 

420 

430 

440 

450 

460 

480 

500 

520 

550 

999 

1000 
1010 
1100 
1500 
1510 
1520 
1530 
1540 
1550 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2200 
2220 
2230 
2240 
2250 
2280 
2300 
2310 
2320 
2322 
2330 
2340 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2500 
2510 
2520 
2530 
2540 
2550 
2560 


GOSUB 2500 : REM own turn 
h%=l1 : REM always TRUE from now on. 
ct=cttl 
GOSUB 3700 : REM scoring 
PRINT "Had enough (Y/N)? "; 
GOSUB 2000 : endgame%=yeah% 
WEND 
PRINT 
GOSUB 5500 : REM goodbye 
END 
REM -- Colour data: 
DATA red,green,blue,magenta,cyan,pink, yellow 
REM -- Splitting routine: 
FOR z%=4 TO 1 STEP -1l 
y%(z%)=nx% MOD 7: nx%=nx%\7 : NEXT z% 
RETURN 
REM splits nx% into 4 base-7 digits in y%(). 
REM -- Yes/No Routine: 
yeah%=88 : REM neither true nor false 
WHILE yeah%<>0 AND yeah%<>1l 
yS=INKEY$: IF y$="" THEN GOTO 2030 
IF y$="Y" OR y$="y" THEN yeah%=1 
IF y$="N" OR y$="n" THEN yeah%=0 
WEND 
PRINT y$ 
RETURN 
REM yeah% contains result ( 1 or 0). 
REM -- Set-board routine: 
CLS 
FOR i%=0 TO size% 
code%(i%)=0 : NEXT 
RETURN 
REM -- Initialization routine: 
blob$=CHR$(143) : AEM peg character 
RESTORE : base%=1 
RANDOMIZE TIME 
FOR i%=0 TO 6 
READ hues$(i%) : REM hue-names 
NEXT i% 
INK 0,1 PAPER 0 
INK 1,6 
INK 2,9 
INK 3,2 
INK 4,8 
INK 5,23 
INK 6,16 
INK 7,24 
REM inks set to correspond with names. 
INK 8,22 
RETURN 
REM -- Own-turn routine: 
PRINT: PRINT "Computer making code :" 
PRINT 
goes%=0 
FOR p%=l TO 4 
a%(p%) = INT(RND*7) : REM 0 to 6 
NEXT p$% 
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2570 b%=0 : REM no. of “blacks”. 

2580 WHILE b%<4 AND goes$%<10 

2590 goes%=goes$t1l 

2600 GOSUB 2800 : REM get guess 

2610 REM guess now in y%(). 

2615 GOSUB 3500 : REM copy into x%() 
2620 GOSUB 3300 : REM show code 

2630 GOSUB 3000 REM exact matches 
2640 GOSUB 3100 REM partial matches 
2650 b%=matches% : w%=partial%-matches% 
2660 GOSUB 3600 : REM feedback 

2670 WEND 

2680 GOSUB 3200 : REM message 

2690 htot%=htot%+goess% 

2700 RETURN 

2720 : 

2800 REM -- Get-guess routine: 

2810 REM puts human guess into y%(): 
2820 vert%=goes%*2 + 2 

2830 FOR pegs%=1 TO 4 

2840 guessed%=0: x%=99 

2850 WHILE x%<>13 


2855 PEN 8 

2860 LOCATE 1,vert%: PRINT goes%; 

2870 horz%=pegs%*2 + 4 | 

2880 LOCATE horz%,vert% 

2888 xB=99 

2890 PEN guessed%+base%: PRINT blob$ 

2900 WHILE x%<>13 AND x%<>32 AND x%<>127 
2910 cS$=INKEY$: IF c$="" THEN GOTO 2910 
2920 x%=ASC(c$) 

2925 WEND 

2930 IF x%=32 THEN guessed%=guessed%+1l 
2933 CLEAR INPUT 

2940 REM space steps onto next hue. 

2950 IF x%=127 THEN pegs%=pegs%-l: PRINT CHR$(7); : REM dele 
te 

2960 IF guessed%>6 THEN guessed%=0 

2970 WEND 


2980 y%(pegs% )=guessed% 

2990 NEXT pegs% 

2995 PEN 8 : RETURN 

2999 : 

3000 REM -- Exact-matching routine: 
3010 REM a%() is answer, y%() is guess. 
3020 matches%=0 

3030 FOR emt=l TO 4 

3040 IF a%(em%)=y%(em%) THEN matches%=matches%+1 
3050 NEXT 

3060 RETURN 

3070 REM with matches$. 

3080 : 

3100 REM -- Partial-match routine: 

3110 partial%=0 

3120 FOR pmt=l TO 4: jj%=1 

3130 WHILE 33%<=4 


3140 IF a%(pm%)=y%(jj%) THEN partial%=partial%+l: y%(4jj%)=99 
: 3j3=4 

3150 3j3=358+1 

3160 WEND 


3170 NEXT 
3180 RETURN : REM with partial’ 
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3190 
3200 
3210 
3220 


REM -- Message routine: 


REM end of human” guessing: 
IF b%<4 THEN PRINT "You failed !!";CHRS$(7) ELSE PRINT "Got 


it in";goes%;"goes." 


3230 
3240 
3250 
3260 
3270 
3280 
3290 
3295 
3300 
3303 
3310 
3315 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3880 
4000 
4010 
4020 
4025 
4030 


PRINT: PRINT "The answer was:" 


FOR iit=l TO 4 
ps=a%(iit): PEN p%+l 
PRINT blob$;" ";hues$(p%) 
NEXT 

PEN 8 

RETURN 

REM -- Show-code routine: 

REM shows code in x%(): 


vert% = goes%*2 + 2 
LOCATE 1,vert%: PRINT goes%; 
FOR ip%=l TO 4 


horz%=ip%*2 + 4 
3j%=x%(ip%): PEN jj%+base% 
LOCATE horz%,vert% 
PRINT blob$;" "; 
NEXT 
PRINT : PEN 8 
RETURN 
REM -- Save-copy routine: 
REM makes copy of y%() in x%(): 


FOR i=l TO 4 
x (i%)=y% (13%) 
NEXT 

RETURN 


REM -- Feedback routine: 

REM vert% is global: 

LOCATE 1,vert%+l 

PEN 15 : PRINT “Blacks:";b%; 
PEN 8 : PRINT “Whites: ";w% 
RETURN 


REM -- Scoring routine: 

REM shows average score of both players: 
REM globals: c%,g%,ctot%,htot% 

IF c%<l OR g%<l THEN RETURN 

REM quit if human hasn‘t tried. 

them = htot% / c% 

us = ctot% / g% 

PRINT 

PRINT TAB(7);"Games";TAB(15);"Score" 
PRINT "You";TAB(7) ;c%;TAB(15);them 
PRINT "Me";TAB(7) ;g%;TAB(15);us 
PRINT CHRS$ (7) 


IF us < them THEN PRINT "I’m winning!!" 
IF us > them THEN PRINT "Youre ahead!" 
PRINT 

RETURN 

REM -- Code-breaking routine: 

LOCATE 1,1: PEN 8 


PRINT "Computer guessing : 
gmax%=1666 
goes%=0: yeah%=0 
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4040 
4050 
4060 
4070 
4075 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4145 
4150 
4160 
4170 
4180 
4190 
4195 
4200 
4210 
4215 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4330 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4625 
4630 
4640 
4645 
4650 
4660 
4800 
4810 


WHILE yeah%=0 
PRINT "Have you made a code (Y/N)? "; 
GOSUB 2000 : REM yes/no answer 
WEND 
CLS 
failure%=0 : b%=0 
WHILE b%<4 AND goes%<10 AND failure%=0 
goes%=goes$t1l 
LOCATE 1,1: PRINT "My guess no.";goes%;": " 
GOSUB 4500 : REM find a code 
REM y%() now has computer’s guess. 
IF failure%=l1 THEN GOSUB 4400 ELSE GOSUB 4200 
gmax%=size% 
WEND 
LOCATE 1,22 
GOSUB 5200 : REM results 
ctot%=ctot%+goes% : REM running total 


RETURN 
REM -- Good-turn routine: 
REM -- normal post-guess feedback: 


GOSUB 3500 : REM copy code 
GOSUB 3300 : REM show code 
wt=-l: bt=-1 
WHILE w%<0 OR b%<0 OR w%>4 OR b%>4 OR (w%+b%)>4 
LOCATE 1,vert%+l: PEN 15 
INPUT "Blacks"; b% 
PEN 8 : LOCATE 11,vert%+1l 
INPUT "Whites"; w% 
WEND 
IF b%<4 AND goes%<l10 THEN GOSUB 4800 : REM test all 
RETURN 
REM -- Bad-turn routine: 
REM abnormal ending. 
LOCATE 1,vert%+l 
PRINT "No more moves left!" 
PRINT CHRS$(7) 
PRINT "You blundered!" 
goes%=goes%-l : REM score bonus 
RETURN 


REM -- Find-code routine: 
REM puts a possible code into a%() & y%(): 
failure%=0 
n%=INT(RND*sizes) 
ccs=0 : thist=-8 
WHILE this%<0 AND cc%<size$%+l 
IF code%(n%)=0 THEN this%=n% 
ect=ccs+1 
n% = (n%+l) MOD (size%+1) 
WEND 
IF this%<0 THEN failure%=l: RETURN 
REM failure% is global signal. 
REM -- Turn guess into colour codes: 
nx%=thiss% 
GOSUB 1500 : REM split-up 
FOR n%=1 TO 4: a%(n%)=y%(n%): NEXT 
REM copies y%() into a%(). 
RETURN 


REM -- Routine to test possibilities: 
LOCATE 16,2: PRINT " we 
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4820 FOR nn%=0 TO gmax% 

4830 IF code%(nn%)=0 THEN GOSUB 5000 
4840 LOCATE 15,2: PRINT nn%; 

4850 NEXT nn% 

4860 RETURN 

4880 REM counter shows that something is going on. 
4890 : 

5000 REM -- Move-test routine: 

5005 nx%=nn% 

5020 GOSUB 1500 : REM split-up into y%() 
5030 GOSUB 3000 : REM matches 

5040 mm$=matches% 

5050 IF mm%<>b% THEN code%(nn%)=l1: RETURN 
5060 GOSUB 3100 : REM partial matches 
5070 pp%=partial%-matches% 

5080 IF w%<>pp% THEN code%(nn%)=1 

5090 RETURN 


5100 REM -- only combinations with the same score are still poss 
ible. 

5110 REM w% and b% are global. 

5150 


5200 REM -- Results routine: 

5210 PRINT "I took";goes%;"guesses" 

5220 IF b%<4 THEN PRINT "and still missed it!";CHRS$(7) 
5230 IF b%=4 THEN PRINT "to break the code." 

5240 IF goes%<5 THEN PRINT "Not bad for a machine?" 
5250 IF goes%>7 THEN PRINT "Well, I’m only human!!" 
5260 PRINT "Hit RETURN to go on:" 


5270 cS="" 
5280 WHILE c$<>CHR$ (13) 
5300  cS=INKEY$: IF cS$="" THEN GOTO 5300 


5310 WEND 

5320 RETURN 

5330 

5500 REM -- Farewell routine: 
5510 PRINT "Thanks for playing." 
5520 PRINT "Bye for now!" 

5530 RETURN 

5550 


At line 4000 is the subroutine which plays the game with the computer as 
code-breaker. What it does is to call subroutine 4500 which chooses at 
random one of the remaining possibilities and places it as a 4-digit code in 
y%. If there are no possibilities left, it signals failure% and subroutine 4440 is 
entered. But normally subroutine 4200 is then called to display the 
computer's guess, get the score and update the array of possible 
combinations. 

The latter process is carried out by a subroutine at lines 4800 to 4880, 
which goes through the 2401 combinations and calls the testing routine (line 
5000) on all of them that are still possible. 

The testing routine compares guess a% with possibility nn%. nn% ranges 
from 0 to 2400). First nn% is converted into four separate base-7 digits in the 
y%() array. Then the exact-match routine, which was developed in the 
previous phase, is applied to see whether the guess would get the same 
number of blacks (b%) as it actually did if a% was the answer. If not, 
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possibility nn% is eliminated and the procedure terminates (line 5050): there 
is no need to look at the partial matches. If the exact matches are the same, 
the procedure continues by invoking the partial-matching procedure. If the 
partial matches do not tally with w% (line 5080) the combination nn% can be 
crossed out. Otherwise it remains in play for the next round. In either case 
the routine is finished (line 5090). 

This then is the ‘finished’ program, although it can be developed further as 
we Shall see in the next section. It plays a better game, most of the time, than 
its author — taking around five guesses per game. After its first move it takes 
nearly four minutes (typically 220 seconds) to assimilate the score. After the 
second move it takes about two and a half minutes (depending on the code), 
Thereafter it chugs along at around 80 seconds a move. Whether you find 
that speed acceptable is up to you; but it is quicker than many people. 

There is no printout to reproduce in the book: the program is 
screen-based. You will have to type it in and try it yourselves to see what it 
does. But here at least is a transcript of one game it played as code breaker, 
where it did not do spectacularly well. 





Person making code : 





Code: Yellow Yellow Cyan Blue 
Guess : Blacks, Whites 
1. Pink Magenta Cyan Magenta 1 
Cyan Red Cyan Red 1 
Cyan Yellow Green Green iL 
Pink Red Yellow Green 0 
Blue Yellow Cyan ° Blue 3 
Blue Yellow Cyan Yellow 2 
Yellow Yellow Cyan Blue 4 


Noa wh 
oOoNOrrK OO 





The exact sequence you get depends, of course, on the random-number 
generator, so it may guess differently when you give it the same code to 
break. (But if it does not get the answer at all, you have made a typing error.) 


10.4 Further developments 


The program now works properly, but that does not mean it is finished. We 
conclude with a few critical remarks that may inspire some readers to 
produce better versions of their own. 

Let us begin with the matter of speed, already alluded to above. Taking up 
to four minutes after the first guess to ponder its next move may seem a bit 
slow. And indeed, this is after the inclusion of line 4025 (gmax% = 1666) 
whose effect is to prevent it considering all possibilities first time round, and 
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thereby play faster at the expense of taking more tries, on average, to find 
the solution. You can make the program play better by altering this to 
gmax%=size%; but then it will take six minutes to reply after its first move. 

This is the point at which the dedicated hacker dives straight into machine 
code. But it is normally more profitable to improve the algorithm before 
rewriting it in another language: the improvement per unit of effort is usually 
greater, and the re-write often turns out to be unnecessary. 

The heart of the matter is subroutine 5000. This is executed up to 2401 
times, and it calls the matching routines at 3000 and 3100, which contain loops 
themselves, Subroutine 3000 is tried first, because it is faster, and if the 
current guess fails on this test, it can be eliminated without entering the 
slower routine at line 3100. This is sensible, but how could the move-tester 
be speeded up further? A small improvement would be simply to remove 
the REMs, although this spoils the style. It might also be worth combining 
lines 5020 and 5030 onto one line and saving a line number. You could also 
remove line 4840, but then the user would have no indication that the 
machine was doing anything while it was ‘thinking’. 

A bigger improvement can be had by re-thinking the matching routines. 
They are fine when being used only once each per guess, but they could still 
do with improvement when being repeated thousands of times. One 
problem is that the partial match routines re-does some work already done 
by the exact match routine. It would be possible for the first one to tell the 
second, in effect, which pegs to avoid. Another possibility would be for the 
partial routine to stop early if the total of matches (whites plus blacks) 
reached four, since there could never be more. It would also be possible — at 
the price of readability — to lose a few spaces and line numbers in subroutine 
3100, saving some time that way. If you are prepared to put ina little thought 
along these lines, you should be able to halve the time taken by the 
elimination process without descending to machine code. 

If you do get down to Assembler level, the matching routines are the ones 
to rewrite first. 

Asecond point is that the program is still incomplete: it needs instructions. 
Line 280 CHAINs another program called INSTRUCT but this has not been 
written. All it needs to do is present the rules of the game and explain the 
method of input then CHAIN back to the main program. You could write this 
by referring back to Section 10.1. 

A third criticism concerns the use of global variables and the choice of 
their names. The program has several one-letter names for global data 
items. 


a%  4-digit answer array. 

x%  4-digit workspace array. 

y%  4-digit guess array. 

h% Human's choice of whether to move first. 
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c% Games completed by computer. 
g% Games completed by human. 
b% No. of Blacks for latest guess. 
w% No. of Whites for latest guess. 


Short variable-names are marginally faster in an interpreted language like 
Basic; but that is rather a feeble excuse. It just shows how standards get 
lowered when your book is already two weeks late and Christmas is hurtling 
towards you like a runaway express. There are also a few constants, such as 
32 and 127 in the program, for the SPACE and DELETE characters 
respectively, which really ought to be given names. (E.g. spacebar% = 32.) 
Fourthly, and most important, the computer does not play a perfect game. 
It is more than a match for most humans (with gmax% set to equal size%), as 
long as you are prepared to wait; but for those readers who like a challenge, 
it is worth thinking about ways of optimizing its code-breaking strategy. 
At present it chooses its next guess at random from those codes that are 
still possible. One suggestion would be for it to look ahead, although of 
course this would slow it down further. That is: after the first guess, it could 
consider all the prospective guesses from the point of view of how much 
information each one was likely to yield. This could be done as follows. 


For each potential guess, compute what scores it could receive on the 
basis of the past record. 

Work out for each of those possible scores how much information would 
be gained, 1e. how many of the remaining possibilities would be 
eliminated. 

Average these over the possible scores for that guess and retain the 
average. 

Select the guess with the highest average. 


Here we are trying to choose guesses that have most effect in reducing the 
number of possible combinations left. This involves additional data 
structures and extra processing time. 

Now we are beginning to get into Artificial Intelligence, and perhaps 
beyond the limits of Amstrad Basic; but it is an interesting challenge, and it 
would give some improvement in performance. If there were grandmasters 
at this game, the program would become one. 

Other ideas you might care to consider are: recording the user's choices 
and seeing if it can detect, and exploit, colour preference biases in the user; 
and revising the central data structure by trying out a different, two- 
dimensional structure. The latter would have four rows for each position in 
the code and seven columns, one for each colour. Its entries would contain 
indications of whether each position-colour was possible, impossible, likely 
or unlikely. Would this enhance the program's performance? We leave you 
to investigate. 





[ FURTHER DEVELOPMENTS | [208 





At this point it is time to bid you farewell (and to thank you if you have read 
through to here rather than skipping directly from Chapter 1). The red, 
green, blue, cyan, magenta, pink and yellow brick road of games pro- 
gramming stretches out invitingly before you. But you have other avenues to 
explore as well. We say goodbye with the hope that - partly by reading this 
book - you are now able to write programs that do something useful, and 
work. 


Appendix A 
ASCII codes 


The printable ASCII characters are given below, together with their decimal 
equivalents. 


No. Char. No. Char. No Char. | 
32 [space] 64 @ 96 

33 65 A 97 a 
34 66 B 98 b 
35 £ 67 Cc 99 c 
36 $ 68 D 100 =O 
37 % 69 E lol =e 
38 & 70 F 102—~Cté«éE 
39 71 G 103g 
40 ( 72 H 104 oh 
4) ) 73 I 108i 
42 * 74 J 106 j 
43 rs 75 K 107k 
44 76 ie 108) 
45 : 71 M 109 3m 
46 . 78 N 10 on 
47 / 79 O lll o 
48 0 80 P 12 p 
49 1 81 Q 13 q 
50 2 82 R 4 
51 3 83 S 18s 
52 4 84 T 16 t 
53 5 85 U uz ou 
54 6 86 Vv 18 ov 
55 7 87 Ww 119 ow 
56 8 88 X 120 x 
87 9 89 Y 21 
58 90 Z 122 «oz 
59 ; 91 [ 123 { 
60 < 92 \ 124s 
61 i 93 ] 125 } 
62 > 94 A 16 C} 
63 ? 95 od 127 —‘ [delete] 
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The character codes from 128 to 255 are used for block graphics on the 
Amstrad. For instance, PRINT CHR$(244) displays a smiling face and 
CHR$(245) a frowning one. If you want to see what they look like, type in and 
run the little program below. 


100 FOR c%=128 TO 254 STEP 2 

120 PRINT c%;CHR$(c% ),c% + 1;CHR$(c% + 1) 
150 NEXT c% 

200 END 


The characters below 32 are special, non-printing, control characters; but 
they too can be printed by preceding them with CHR$(1). For example, 
PRINT CHR$(1);CHR$(26) displays a reversed question-mark. Normally, 
however, they are used for functions like backspacing. The most important 
are as follows. 


CHR$(0) null character, has no effect. 

CHRS&(1) prefix for printing control codes. 

CHR$(2) _ turns off the text cursor. 

CHR$(3) _‘ turns the text cursor back on. 

CHR&7) clears the sound queue and sounds the buzzer. 
CHR$(8) moves the cursor one space backwards. 
CHRS&(9) moves the cursor one space forwards. 
CHR$(10) moves the cursor one line downwards. 
CHR$(11) moves the cursor one line upwards. 

CHR{(12) clears the screen. 

CHR&(13) carriage return. 

CHR$(16) deletes the character under the cursor. 
CHR$(24) swaps PEN and PAPER colours (‘inverse video’), 
CHR&(30) moves cursor to the top-left corner. 


Appendix B 
Basic keywords 


This appendix describes Basic's commands and statements — except those 
for disc file-handling which are listed in Appendix D and pre-defined 
functions which are dealt with in Appendix F. 

In the statement templates, words in capitals (like INPUT) are Basic 
keywords which should appear as they stand. Words in lower case describe 
constructions (like ‘variable’) which should be replaced by a legal example 
of that construct. Punctuation should appear as shown, except that square 
brackets [] enclose optional parts and curly braces {} enclose portions that 
may be repeated zero or more times. 


B.1. Basic statements and commands 


Statements are normally preceded by a line number in the range 1 to 65535. 
Multiple statements may be placed on one line, separated by colons. 


AFTER waittime [,timernum] GOSUB line 
Calls a subroutine after ‘waittime’ has elapsed, optionally depending on 
timer number ‘timernum' (in the range 0 to 3). 


AUTO [line] [,gapsize] 
Generates line-numbers automatically for program insertion. The ‘line’, if 
present is a constant specifying the starting number; and ‘gapsize’ is another 
optional consonant giving the increment between line-numbers. Default for 
both ‘line’ and ‘gapsize' is 10. Ifa line generated by AUTO already exists, the 
system enters EDIT mode. 

(AUTO is used as a command, not within a program.) 


BORDER hue! [,hue2] 

Sets the colour of the border around the display screen. The parameter 
‘huel' must be an expression in the range 0 to 26: see Colour Chart. If the 
‘hue2’ argument is given, it must be in the same range and specifies that the 
border alternates between the two colours. 
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CALL address [,arglist] 
This calls a machine-code subroutine at memory-location ‘address’, 
optionally passing the arguments listed. Enough said! 


CLEAR 

Clears all variables to zero or the null string, abandons all open files, erases 
all arrays and user functions, and sets Basic to use radians in trigonometric 
calculations. 


CLEAR INPUT 
Discards any characters hanging around in the ‘input buffer’. 


CLG [inkcode] 
Clears the graphics screen. Optionally an '‘inkcode’ expression in the range 0 
to 16 may be given for the graphics background colour. 


CLS [# w] 
Clears the text screen on window ‘w' (an expression in the range 0 to 7). Ifno 
window is specified, stream 0 is cleared. 


CONT 

Attempts to continue execution after a break-in with ESC or after a STOP 
instruction has been encountered. CONT cannot work if the program has 
been edited or if it is a protected program. 


DATA constant {,constant} 

Declares one or more constants for use by READ statements gathered in a 
program. The constants may be string or numeric, and are all gathered 
together into one long sequence for reading. (See also RESTORE). 


DEF FNname [(arglist)] = formula 
Defines a function which can later be invoked by name in Basic expressions 
to compute a value. The ‘name’ is like any variable name; the ‘arglist’ if 
present is a list of one or more arguments, separated by commas; and the 
‘formula’ is an expression, normally containing the arguments if any, for 
computing the value of the function. (See Chapter 4.) 

(For built-in functions, see Appendix F.) 


DEFINT letters 

Sets the default data-type for variables to integer. When a variable is 
encountered without a type marker (% for integer, ! for floating-point, $ for 
string) at its end, the default type is assumed. Normally the default for all 
variables is floating-point, but this statement states that variables whose 
names begin with the ‘letters’ specified are integers by default. Thus for 
example 


DEFINT a,i-k 
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specifies that all variable names beginning with ‘a’ or 1, j' or ‘k’ are to be 
treated as integers by default. 


DEFREAL letters 

This is like DEFINT, except that it specifies the default data-type to be ‘real! 
or floating-point. It is followed by a list of initial letters. Since floating-point is 
the normal default, the system acts as if the command 


DEFREAL a-z 
had been given when it starts up. 


DEFSTR letters 
This is like DEFINT and DEFREAL, only it specifies that variable names with 
the listed initial letters are to be treated as string variables by default. 


DEG 

This sets the units for trigonometric computations to be degrees (rather than 
radians). The initial state of Basic is for the functions COS, SIN, TAN and so on 
to work with angles measured in radians; but very often it is more convenient 
to work with degrees. After DEG, Basic uses degrees until a RAD instruction 
or till one of the commands CLEAR, LOAD, NEW or RUN is issued (or the 
system is re-booted). 


DELETE linespec 

This command deletes a line or range of lines from the Basic program in 
memory. Normal usage is to have a first and last line number separated by a 
hyphen, as in 


DELETE 600-750 


which deletes lines 600 to 750 inclusive. But either the first or the last line may 
be omitted, in which case deletion is from the beginning or to the end of the 
program. A single line may also be deleted as in 


DELETE 800 

for example. Be warned that 

DELETE 

on its own erases the entire program! 


DI 
This disables all interrupts (other than ESCape) until they are re-enabled by 
EI or by RETURN from an interrupt-handling subroutine. 


DIM name(size) {,name(size)} 
This sets up the dimensions of one or more arrays. The ‘name’ is the 
array-name, composed according to the normal rules of variable naming. 
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The ‘size’ indicates its maximum subscript value. Arrays may have more than 
one dimension, in which case the upper limits for each subscript value are 
separated by commas. Variables or expressions may be used to declare an 
array's size, as well as constants. 

Array elements are numbered consecutively from 0 not 1; and the default 
upper bound for arrays not mentioned in a DIMension statement is 10. 
(Examples in Chapter 3.) 


DRAW ac,up [,[inkcode] [,inkmode]] 

This draws a line on the graphics screen from the current graphics cursor 
position to the position given by ‘ac’ (horizontal displacement 0 to 640) and 
‘up’ (vertical displacement 0 to 400). An ‘inkcode' in the range 0 to 15 may be 
specified giving the colour of the line. The optional ‘inkmode’ determines 
how the ink interacts with the ink already on the graphics screen. The four 
ink modes are: 0 normal default (overwriting), 1 XOR with existing colour, 2 
AND with existing colour, 3 OR with existing colour. 

All parameters are numeric expressions. 


DRAWR ac,up [,[{inkcode] [,inkmode]] 

This is the relative version of DRAW. It draws a line in the same way except 
that the destination point is given relative to the current graphics cursor 
position. Thus the expressions ‘ac’ and ‘up’ are not absolute addresses on the 
screen but offsets relative to the latest position plotted. 


EDIT line 

This command enters editing mode on the ‘line’ number specified (which 
must be a constant, not a variable). The arrowed cursor keys, with DEL and 
CLR, may be used to amend that line. (See Chapter 2.) 


EI 

This enables interrupts that have been turned off by DI. If interrupts are 
disabled in a subroutine, they are automatically re-enabled by the RETURN 
instruction which terminates execution of that routine. 


END 
Ends the execution of a program. An END is automatically assumed after the 
final line of the program, if none is present. 


ENT envelope {,stepnum,stepsize,stepgap} 

This defines a tone envelope for reference in a SOUND instruction 
elsewhere in the program, with an identifying number ‘envelope’ in the 
range | to 15. The numeric parameters ‘stepnum’, 'stepsize’ and ‘stepgap' 
give the number of steps (0 to 239), the pitch increment or decrement (— 128 
to +127) and the time between steps (0 to 255) respectively. Up to five 
groups of three parameters may follow the ‘envelope’ number. They specify 
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how fast and how far the basic pitch is to be varied during the SOUND output. 
(See Chapter 8.) 


ENV envelope {,stepnum,stepsize,stepgap} 

This defines a volume envelope for use by reference to the ‘envelope’ 
number (1 to 15) ina SOUND command. The format is the same as for a tone 
envelope, above, except that the ‘stepsize’ (— 128 to + 127) refers to loudness 
rather than pitch. The volume range is from 0 (quiet) to 15 (full volume) but it 
recycles to zero if incremented beyond 15. The maximum number of 
parameters to the ENV command is 16 - one identifying number plus 5 
sections of three parameters. 


ERASE variable {,variable} 

This erases the contents of a variable (normally an array-name) when it is no 
longer required, releasing the storage it occupied for other uses. Thus the 
statement 


1250 ERASE Zonk, Junk$ 


removes all traces of a numeric array called Zonk and a string array called 


Junk$. 


ERL 

This is a system variable that reports the line number of the last error 
detected by Basic. It can be used with ERR and ON ERROR GOTO to handle 
errors under program control. (See also Appendix E.) 


ERR 
This is another special system variable that is set to contain the error-code of 
the last error detected by Basic. Fora list of error numbers, see Appendix E. 


ERROR numeric 
This forces Basic to act as if the error designated by the integer ‘numeric’ 
expression had occurred. If an 


ON ERROR GOTO line 


has been set up that ‘line’ will be executed with the values of ERR and ERL 
set appropriately. 


EVERY waittime [,timernum] GOSUB line 

This calls the subroutine beginning at line-number ‘line’ every so often. The 
optional 'timernum’ (0 to 3) specifies one of the four interrupt timers, and the 
‘waittime’ expression gives the interval in fiftieths ofa second. Timer 0 is used 
if none is specified. Timer 3 has the highest priority. Each timer may have a 
routine associated with it. 


FILL inkcode 
This fills an area of the graphics screen with the hue given by the ‘inkcode’ 
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expression (in the range 0 to 15). Filling begins at the current graphics cursor 
location and continues till a boundary is reached. A boundary may be: (1) the 
edge of the screen; (2) a line in the current graphics pen colour; or (3) a line 
in the ink being used for FILLing. 


FOR counter = firstval TO lastval [STEP stepsize] 
Opens a loop controlled by a ‘counter’ variable. The numeric formula ‘firstval' 
is evaluated and assigned to the index ‘counter’. Then the instructions up to 
the NEXT with the same counter variable are executed (provided that the 
counter is not already greater than the value of the numeric expression 
‘lastval'). Then the counter is incremented by the value of the expression 
after STEP (or +1 if this part is absent) and control returns to the statement 
immediately after the FOR. This goes on until the counter exceeds the final 
value ‘lastval’, when the program carries on with the statement after NEXT. 
If the optional ‘stepsize’ is negative, looping continues till the counter is 
less than the last value (not greater). 


FRAME 

Synchronizes the writing of graphics with the frame flyback of the screen. 
The effect is that movement on the screen appears smoother, with less 
flickering. 


GOSUB line 
Transfers execution to the statement with the line number specified. 
Execution then continues normally until a RETURN is reached, when control 
returns to the instruction just after the GOSUB. Subroutines in Amstrad Basic 
may be recursive, but there is no parameter-passing mechanism. (See 
Chapters 4 and 9.) 

The ‘line’ must be a constant, not a variable or expression. 


GOTO line 
Branches to the line number given and continues execution from there. The 
‘line’ must be a constant between | and 65535. 


GRAPHICS PAPER inkcode 

Sets the background colour to 'inkcode’, an expression in the range 0 to 15 
specifying one of the sixteen ink hues. In mode 1 the inks are ‘folded’ so that 
four colours are repeated four times. In mode 2 two colours are repeated 
eight times. (See also inside flap.) 


GRAPHICS PEN inkcode [,modecode] 

This sets the graphics foreground colour, used for plotting and drawing lines, 
to that specified by the expression ‘inkcode’ (0 to 15). Optionally the 
‘modecode’ parameter may be given a value of 0 for an opaque background 
or | for a transparent background. (This affects dotted lines and so on.) 
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IF truthval THEN statements [ELSE statements] 

If the ‘truthval’ expression yields a non-zero value (true) the statement or 
statements after THEN are executed. If it has a value of zero (false), the 
statement or statements after ELSE are executed if present, otherwise 
nothing happens. The ‘truthval’ is usually a logical expression using logical 
and/or comparison operators. (See Chapter 2 and Section B2.) 


INK inkcode, huecode [,flasher] 

This assigns the colour indicated by the expression ‘huecode’ (0 to 26) to the 
ink number (0 to 15) given by the expression ‘inkcode' for use in subsequent 
PEN and PAPER instructions. If the ‘flasher’ expression is also given, it must 
also be in the range 0 to 26, and indicates that the colours ‘huecode’ and 
‘flasher’ are to alternate. See Colour Chart and Ink Codes on back flap for 
details. 


INPUT [#chan, ] [;] [message punc] variable {,variable} 

This accepts data input from the stated channel ‘chan’ or stream 0 if not 
specified. The values typed by the user are given, in order, to the variables 
listed. Commas are used to separate data items on input. Strings for input 
need not be in quotes unless they contain commas or leading or trailing 
blanks. 

The first, optional, semicolon [;] suppresses the new line that otherwise 
occurs after the INPUT is executed. The ‘message’ is a quoted string which 
may optionally be used as a prompt. The ‘punc’ following the optional 
prompt-string must be a comma or a semicolon: the latter causes a question 
mark to be displayed; the former suppresses it. 

If the user gives the wrong number or wrong type of data, Basic responds 
with the error message. 


?Redo from start 


and the user must re-enter the whole input list. 


KEY keytoken, stringex 

Assigns the string expression 'stringex' to a key designated by the integer 

expression ‘keytoken’. Key tokens 0 to 31 refer to the key values 128 to 159. 
This allows instruction sequences to be stored and called up by a single 

key-stroke. Key 0 (code 128) for example is f0 on the function key-pad. 

Normally it just contains a “0”, but by giving the command 


KEY 0, “LOAD”+CHR$(34)+"PROG”+CHR$(34)+CHR$(13)+"GOSUB 1000"+ 
CHR$(13) 


you could set the machine up so that merely pressing function key 0 would 
have the same effect as typing the two lines 
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LOAD “PROG” 
GOSUB 1000 


in full. (Function keys 0 to 9 have key tokens 0 to 9.) 


KEY DEF keynumb, rept [,norm [,shifted [,control]]] 

An instruction so mind-bogglingly arcane that several years of study in a 
Himalayan monastery are necessary even to formulate its parameters 
correctly. (They say that what you leave out of a programming language is 
even more important than what you put in.) 


[LET] variable = formula 

Assigns the value of the formula or expression on the night to the variable or 
array-element on the left. The LET keyword is optional. Numeric variables 
must be given numeric values, and string variables must be given string 
values. If an integer variable is assigned a fractional value, the result is 
rounded to the nearest whole number. 


LINE INPUT [#chan, ] [;] [message punc] variable 
Gets a complete line of input from the keyboard (including commas and 
spaces etc.) and assigns it to the string ‘variable’ concerned. The first, 
optional, semicolon [;] suppresses the newline at the end of the input. 

The ‘message’ is a quoted string constant used as a prompt, and the ‘punc’ 
is either a comma or semicolon — the former being used when no question 
mark is to be displayed after the prompt-string. 

Input from the user is terminated by pressing the RETURN key, or when 
255 characters are received, whichever comes sooner. 

The ‘chan’ parameter is 0 by default (normal keyboard input). If ‘chan’ is 
equal to 9 then the current disc (or tape) file is used for input. 


LIST [line] [-line] [,# chan] 

Lists a program line or series of lines. LIST on its own lists the entire program. 
If ‘chan’ is not given, stream 0 is used (display screen). If ‘chan’ has a value | to 
7, then the appropriate WINDOW is used for listing. If ‘chan’ equals 8, the 
printer is used for hard-copy listing. 


LOCATE [# chan,] ac,down 
Positions the text cursor at the position specified —- ‘ac’ character positions 
across to the right and ‘down’ lines downwards, where ‘ac’ and ‘down’ are 
numeric expressions. In mode 0, the screen width is 20 positions; in mode 1 it 
is 40 positions; and in mode 2 it is 80. The depth is always 285. 

If a ‘chan’ expression is given, the position is within the WINDOW 
specified (1 to 7). LOCATE 1,1 puts the text cursor at the top left. 


MEMORY address 
Allocates the amount of RAM available to Basic by setting the ‘address’ of the 
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highest byte. Only useful if you want to hide machine-code routines in a 
section of memory that Basic cannot reach. 


MID§$ (variable, position [,newsize]) = stringex 

Inserts the string expression ‘stringex’ into the string ‘variable’ at the ‘position’ 
given. The number of characters transferred may be specified by the 
integer expression ‘newsize’. Thus 


MID$(Text$,p% ,4) = “Helper” 


puts the 4 characters “Help” into the string variable Text$ starting at position 
p% within the receiving string variable. (See also the MID$() function in 
Appendix F.) 


MODE integer 
This clears the screen and changes to mode 0, | or 2 — as given by the 
‘integer’ expression. (See Chapter 8.) 


MOVE ac,up [,[inkcode] [,inkmode]] 

Moves the graphics cursor to the location specified by the horizontal and 
vertical coordinates ‘ac’ and ‘up’ (0 to 640 and 0 to 400 respectively). It may 
optionally select a new graphics pen with the ‘inkcode' expression (0 to 15). 
The optional ‘inkmode’ parameter is as for DRAW. 


MOVER ac,up [,[inkcode] [,inkmode]] 

This instruction moves the graphics cursor to a position specified by the 
numeric expressions ‘ac’ and ‘up’ relative to the current graphics cursor 
position. It is the relative version of MOVE, above, and the parameters other 
than ‘ac’ and ‘up’ have the same meanings. 


NEW 
This command clears memory in preparation for the insertion of a new 
program. 


ON BREAK CONT 

This prevents the action of the ESC key from halting the program. ESC is 
disabled until the next ON BREAK STOP instruction, so take care with this 
one. 


ON BREAK GOSUB line 
Sets up an interrupt-handling routine. When next ESC is pressed twice, the 
program will not halt but will transfer to the subroutine at the ‘line’ specified. 


ON BREAK STOP 

This cancels the effect of an earlier ON BREAK CONT command and 
restores BASIC to its normal mode of handling break-ins with the ESCape 
key. 
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ON ERROR GOTO line 

Changes Basic's normal mode of error-handling so that, instead of stopping 

with an error diagnostic, control is transferred to the line number specified 

when the next error occurs. Having dealt with the error, RESUME can be 

used to carry on where the program left off. If the error cannot be handled, 

ON ERROR GOTO 0 re-instates Basic’s normal way of processing errors. 
(See also Appendix E.) 


ON selector GOSUB line {,line} 

Picks a subroutine to jump to according to the value of the integer expression 
‘selector’. If the value is | the first ‘line’ is chosen; if it equals 2, the second is 
chosen, and so on. If the selector is less than 1 or more than the number of 
lines after the GOSUB, no subroutine will be called and control will ‘fall 
through’ to the next statement. 


ON selector GOTO line {,line} 
Transfers to one of a series of line numbers as with ON/GOSUB above, but by 
a GOTO rather than a GOSUB. 


ON SQ(chan) GOSUB line 

Goes to a Basic subroutine when there is a free time-slot in the sound queue 
specified. The ‘chan’ parameter should be an integer expressioin yielding 
the value | for channel A, 2 for channel B or 4 for channel C. 


ORIGIN wide, high [,east,west,up, down] 

Re-sets the graphics origin (zero,zero coordinate) to the position specified 
by the expressions ‘wide’ and ‘high’. This instruction may also be used to 
define a graphics window by means of the four optional parameters, which 
set new boundaries for the graphics area. (Plotting beyond the physical 
edge of the screen never has any effect.) 


OUT port,integer 
Sends the ‘integer’ value (0 to 255) to the specified ‘port’ or I/O device. (Only 
for machine-code freaks.) 


PAPER [# chan,] inkcode 

PAPER selects the background colour for text. The ‘inkcode'’ expression 
(range from 0 to 15) picks one of the available hues. The ‘chan’ specifies a 
window (0 to 7) and defaults to 0 if not given. (See back flap.) 


PEN [# chan,] inkcode [,modecode] 

Sets the ‘inkcode’ (0 to 15) to be used when writing text to the given stream 
(‘chan’' 0 to 7, 0 if not specified). The optional 'modecode’ parameter can be 
used to set background mode to opaque (0) or transparent (1). See also back 
flap. 
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PLOT ac,up [, [inkcode][,inkmode]] 

Plots a point on the graphics screen at the position given by the ‘ac’ and ‘up’ 
coordinates (ranges 0 to 640 and 0 to 400). The ‘inkcode’ expression (0 to 15) 
may be used to select the colour of the point. The ‘inkmode’ (0 to 4) 
determines how the ink interacts with those already on the screen, as with 
the DRAW command. 


PLOTR ac,up [,[inkcode] [,inkmode]] 

The relative version of PLOT is the same as above except that the 
expressions ‘ac’ and ‘up’ are interpreted as offsets from the current graphics 
cursor position. 


POKE address, integer 
Puts the value of the ‘integer’ expression (0 to 255) directly into the memory 
location given by ‘address’. 


PRINT [#chan,] [item] {punc item} 

Prints a list of values to the output channel given by ‘chan’ (0 to 9). If no ‘chan’ 
is specified, stream 0, the screen, is used. A question mark (?) may be used 
as a synonym for the keyword PRINT. 

Each ‘item’ may be a constant, variable or expression. The separators 
‘punc' may be commas for zoned spacing or semicolons for closely-packed 
spacing. The pseudo-functions SPC(n) and TAB(n) may be used as items in 
the output list. SPC(8), for example, causes 8 spaces to be printed; while 
TAB(8) causes the cursor or print-head to move to the 8th character position. 
(If it has already gone beyond that position, it will move forwards to that 
position on the next line.) 

Channel 8 is for printed output, if a printer is connected; and channel 9 is 
for disc-file output, if a disc is installed. 


PRINT [# chan,] USING form ; item {,item} 

This prints a list of expressions on the specified channel (or stream 0, 
the screen display, if none is given) whose layout is governed by 
the format string ‘form’. Details of PRINT USING formatting are given in 
Chapter 6. 


RAD 

Causes radians to be used as the units for trigonometric calculations, e.g. in 
SINQ and COS(). This is the default mode, so RAD is only needed after a DEG 
instruction has altered the trigonometric units to be degrees. 


RANDOMIZE numeric 

Resets the seed of the pseudo-random number generator to the value given 
by the ‘numeric’ expression. This prevents the RND function from repeating 
the same series of values. RANDOMIZE TIME isa handy way of randomizing 
the generator. 
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READ variable {,variable} 

Extracts constants from DATA statements into a list of variables and/or 
array-elements. String constants must be read into string variables and 
numeric values into numeric variables. The first READ gets the first DATA 
item in the program, and subsequent READs carry on where previous ones 
left off. A RESTORE instruction may be used to return to the start of the data 
area. 


RELEASE sq 
Releases sound channels that have been set to hold ina SOUND command. 
The ‘sq’ parameter is an integer in the range | to 7 which specifies a group of 
sound channels by adding up their individual code numbers (1 for A, 2 for B 
and 4 for C). 


REM textline 

Introduces a non-executable comment 'textline’, which may be any printable 
characters. If execution is sent to a REM statement it has no effect: control 
passes on to the next statement. Remarks may also be appended to any line 
except a DATA statement by typing an apostrophe (’), which marks all 
characters following up to the end of the line as commentary. 


RENUM [newline] [,oldline] [gapsize] 
This command renumbers program lines. The parameters are line number 
(constants in the range 0 to 65535). If ‘oldline’ is omitted, renumbering 
commences from the beginning of the program. If ‘newline’ is omitted, the 
renumbered program will start from line 10. The ‘gapsize' specifies the step 
between consecutive line numbers: if omitted, the lines will go up in steps of 
10, 

RENUM takes care of all GOTO, GOSUB and other destinations during 
resequencing. However, line references within string expressions — such as 
in KEY commands - are not altered. 


RESTORE [line] 

Resets the data pointer back to the first item of the first DATA line in the 
program. If an optional ‘line’ is given, the pointer is reset to the line number 
specified (which must be a constant). 


RESUME [line] 

Resumes normal execution after an error has been trapped by an ON 
ERROR GOTO and processed. If no ‘line’ is specified, resumption is at the 
line where the error occurred. RESUME NEXT has the effect of re-starting at 
the line after the one where the error occurred. 


RETURN 
Returns from a subroutine by sending control back to the instruction just after 
the most recently executed GOSUB. 
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RUN [line] 
Executes the Basic program currently in memory. If a line’ is given, 
execution commences from the line number specified. 


SOUND chan, tone [,duration [,loudness[,ve[,te[,np]]]]] 

Sounds the bleeper on ‘chan’ (1, 2 or 4) with the ‘tone’ specified for ‘duration’ 
hundredths of a second at volume level ‘loudness’ (0 to 15), Among the 
optional parameters, ‘ve’ specifies a volume envelope (see ENV), ‘te’ 
specifies a tone envelope (see ENT) and ‘np’ (0 to 31) adds noise of varying 
pitch. (See Chapter 8 for details.) 


SPEED INK period], period2 
Sets the rate of alternation for two colours specified in a BORDER or INK 
command. The numeric expression ‘period 1' specifies the time in fiftieths of 
a second for the first colour; ‘period2' sets the time in fiftieths for the second 
colour. 

WARNING: flicker frequencies in tune with brain rhythms can have 
dangerous effects, especially on people susceptible to epilepsy. 


SPEED KEY wait, rate 

Sets the timing for auto-repeat on keyboard keys. The expression ‘wait’ gives 
the time a key must be depressed, in fiftieths of a second, before 
auto-repeating begins. The expression ‘rate’ gives the interval between 
repetitions, again in fiftieths. The normal settings are 30 and 2. (Small values 
of ‘wait' are best avoided.) 


STOP 

Stops a program running, but leaves it in a state where it can be resumed 
by the CONT command - provided it has not been edited in the mean- 
time. 


SYMBOL charnum, rowlist 

Redefines the shape of a character for screen display. The ‘charnum’ is an 
ASCII code in the range 0 to 255 (see Appendix A), normally greater than 
127. The ‘rowlist’ contains eight integers in the range 0 to 255, separated by 
commas: these define a row of light and dark dots according to their 
bit-pattern. Thus, for instance, 37 (00100101 binary) denotes a line of 
off-off-on-off-off-on-off-on as one of the eight rows making up a character 
matrix. 

(Examples can be seen in Listing 8.4.) 


SYMBOL AFTER integer 

This sets the first character in the ASCII sequence that may be redefined by 
a SYMBOL command. The ‘integer’ is an expression in the range 0 to 256, 
which selects the lowest-numbered character that may be redefined. Thus 
SYMBOL AFTER 200 means that all ASCII codes from 200 upwards may be 
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redefined. The initial setting is for SYMBOL AFTER 240, giving 16 
user-defined characters, numbered 240 to 255. 


TAG [# chan] 

Sends any text for the stream given by ‘chan’ (0 to 7) to be printed at the 
graphics cursor position (instead of the text cursor position). If no channel 
number is specified, stream 0 — the screen display - is used. 


TAGOFF [# chan] 
Cancels the effect of a prior TAG instruction for the given window or stream, 
or for the main display screen if none is given. 


TROFF 
Turns off line-number tracing set up by TRON. 


TRON 

Traces execution of program lines by printing each line number in square 
brackets before executing it, until cancelled by TROFF. Used sparingly, this 
can be helpful during debugging. 


WHILE truthval 

Opens a loop, closed by a following WEND, which will be executed 
repeatedly as long as the logical expression ‘truthval’ is true (i.e. has a 
non-zero value). See Chapter 3. 


WIDTH integer 

Informs Basic how many characters fit onto one line of printer output (on 

channel 8). A width of 132 is assumed unless a WIDTH command overrides it. 
The instruction WIDTH 255 tells Basic not to insert extra carriage-return/ 

line-feeds whatever the length of an output line: it is then up to the printer to 

put in line-breaks if necessary. 


WINDOW [#chan,] east,west,up,down 
Declares the dimensions of a text window on the screen. The parameters 
specify the left, right, upper and lower limits in character positions 
(consistent with the MODE in use). 

If no ‘chan’ (0 to 7) is given, stream 0, the main screen, is assumed. 


WINDOW SWAP windowl, window2 
Exchanges the text of two specified windows completely. (Note there is no 
hash-sign (#) in front of either parameter.) 


ZONE integer 

Changes the width of the print zones used by the PRINT statement when 
commas are used to delimit items. The default setting is ZONE 13, but the 
‘integer’ expression may take any value from | to 255. 
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B.2. Basic operators 


Operators are used to link operands (constants, variables or subexpress- 
ions) in expressions. 


Logical operators 


AND 


NOT 
OR 


XOR 


Bitwise Boolean AND on integers: result bit is 0 unless both left and 
right operand bits are 1. 

Bitwise negation: inverts every bit in its single operand. 

Bitwise logical inclusive OR: result in each bit position is ] unless both 
operand bits are 0. 

Bitwise exclusive OR: result bit is 1 if the two operand bits differ, 0 if 
they are the same. 


Relational Operators 


< Less than: returns — 1 (true) if left operand is numerically smaller than 
right operand, otherwise 0 (false). 

> Greater than: returns true if left argument is numerically greater than 
right operand, otherwise false. 

= Equal to: returns true if both operands are numerically equal, 
otherwise false. 

<> Not equal: returns true if both operands differ, false if they have equal 
values. 

<= Lesser or equal: returns true if left operand is less than or equal to 
right operand, otherwise false. 

>= Greater or equal: returns true if left operand exceeds or equals right 
operand, otherwise false. 

Arithmetic operators 

+ Addition: returns the sum of its two operands. 

= Subtraction: returns the difference between its two operands. 

* Multiplication: returns the product of its two operands. 

/ Division: returns the ratio of the left operand divided by the right 
operand. 

\ Integer division: returns the whole-number result (truncated towards 
zero) of dividing the left by the right operand. 

MOD Modulus: remainder after dividing left operand by right operand. 

A Exponentiation: result of raising left operand to the power of right 


operand. 


Appendix C 
CP/M Commands 


One of the joys of the Amstrad CPC 664 and even more the CPC 6128 is that it 
permits the use of the CP/M operating system. CP/M is not the world’s best 
operating system (though there are many worse) but it has been around so 
long that a cornucopia of valuable software has accumulated for it. 

It cannot be covered in a mere Appendix; but here at least is a list of its 
built-in commands to get you started. The ones that require filename 
parameters use the same naming conventions as AMSDOS — i.e. up to eight 
characters in a name, then up to three characters after a dot in the extension. 
You can use the ? and * ‘wild-cards’ too. (See Chapter 7.) 

A 

Makes A: the current disc drive. (Default.) 

B: 

Makes B: the current disc drive (if you have two). 

DIR [filespec] 

Gives a directory of the current disc. The ‘filespec’ may be used to list groups 
of files, e.g. 


DIR *.COM 
lists all files with a .COM extension. 


ERA filespec 
Erases a file or group of files from the directory. 


REN newspec = oldspec 
Renames the file named by ‘oldspec’ with the name given by ‘newspec’. 
For example 


REN WEAK.TEA = MELTING.ICE 


renames the file currently called MELTING.ICE as WEAK.TEA (Wild cards 
may not be used with REN.) 


TYPE filespec 
Types the specified file or files on the screen. If CONTROU/ is in effect, the 
output will also be copied to the printer. 
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USER n 


Changes the current user number to n, where nis from 0 to 15. CP/M starts 
with user zero selected; but by altering the number you can set up several 
groups of related files on one disc. (With less than 175K to spare! Who do they 
think they are kidding?) 


There are also a variety of useful control characters which do not all 
function in the same way under CP/M as they do in AMSDOS. The main ones 


are listed below. 


CONTROL/C 
CONTROL/G 
CONTROL/H 
CONTROL 

CONTROL/K 
CONTROL/P 


CONTROL/Q 
CONTROL/R 


CONTROL/S 
CONTROL/U 
CONTROL/Z 


Abandon operation (like ESCape in Basic). 

Delete character under the cursor. 

Backspace and delete. 

Tab to next tab stop. 

Delete to end of line. 

Turn on copying screen output to printer (or turn it off if 
already on). 

Resume screen listing frozen by CONTROL/S. 

Re-echo the current command line as CP/M sees it (useful 
after multiple deletions). 

Freeze screen output (till another CONTROL/S). 

Erase the current line. 

End-of-file or end-of-input marker. 


The DEL and RETURN keys act as they do in Basic or under AMSDOS. The 
arrowed cursor keys can also be used under CP/M. 

To run a compiled program under CP/M, e.g. a utility saved on disc with 
.COM extension, just give its name. Thus 


DISCKIT3 


runs DISCKIT3.COM from disc (for formatting, copying etc.). 


Appendix D 
Disc-file Instructions 


The statements and functions for file-handling on disc have been grouped 
together here for convenience. (For further details on datafile handling, and 
a list of AMSDOS commands, see Chapter 7.) 


CAT 
This command displays a disc catalogue, giving names and extensions of 
files with their lengths in kilobytes. 


CHAIN filename [,line] 

Loads a program named by the string expression ‘filename’ into memory and 
runs it. Execution normally starts with the first program line, but the 
parameter ‘line’ may be used to specify a different starting point. 


CHAIN MERGE filename [,line] [, DELETE linespec] 

Loads and runs a program from disc, merging it into the current program. 
The optional ‘DELETE linespec' section may be used to delete a range of 
lines in the current program before loading the new one. Note that lines in 
the present program will be overwritten by lines with the same number in 
the incoming one. 


CLOSEIN 
Closes any disc input file. 


CLOSEOUT 
Closes any output file opened on disc channel 9. 


DERR 
Asystem variable used by AMSDOS to give details of any disc error trapped 
by ON ERROR GOTO. (See Appendix E.) 


EOF 
This function tests whether the disc input file has any more input data. It 
returns —1 (true) if the file is exhausted, otherwise 0 (false). 
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INPUT #9, item {,item} 
The form of the INPUT instruction used for reading from disc files. See 
Appendix B., 





LOAD filename [,address] 

Loads a file named by the string expression ‘filename’ into memory, 
replacing any existing program. Specifying the optional ‘address’ will load a 
binary machine-code file at the address given rather than the one it was 
saved from. 


MERGE filename 

Merges the program named by the string expression ‘filename’ into working 
memory on a line-by-line basis, as if the incoming program lines had been 
typed at the keyboard. This is useful for appending subroutine libraries 
saved on disc. 


OPENIN filename 
This statement opens the file named by the string expression ‘filename’ on 
disc channel 9 - for input. It must be an ASCII file. 


OPENOUT filename 

This statement opens an output file named by the string expression ‘filename’ 
on disc channel 9. Both OPENIN and OPENOUT work with ASCII sequential 
files only. 


RUN filename 
Runs a Basic or machine-code program saved on disc under the name 
‘filename’ (which is a string expression). Any previous program is cleared 
from memory. 


SAVE filename [,filetype] 

Saves the current program in working memory to disc with the name given 
by the string expression ‘filename’. If the ‘filetype’ is omitted, it is saved as a 
normal Basic program with .BAS extension if none is specified. A back-up of 
any existing file with the same name will be made just prior to saving, with 
.BAK extension. 

If ‘filetype’ is P, the program will be saved in protected mode. This means 
that you can mun but not list it. 

If the filetype is A, the program will be saved in plain ASCII format. This 
means that it can be read by a Basic program using OPENIN and INPUT#9 
like any other sequential text file. This is handy for creating simple 
‘programs’ which are really sequential datafiles, or for analysing Basic 
programs. 
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WRITE [# chan,] item {,item} 
Writes the various ‘items’ of data to a file (assuming ‘chan’ has a value of 9) ina 


form suitable for re-reading by a Basic program. Output items are separated 
by commas and strings are enclosed by double-quotes. 


Appendix E 
Error messages 


E.1. Basic errors 


The error-numbers given below with the Basic error messages are assigned 
to the special variable ERR when an error occurs. This allows trapping of 
errors (using the ON ERROR GOTO command) in Basic programs. Likewise 
the special variable ERL is set to the line number where an error occurred 
by Basic. Your programs can use this information to deal with various error 
conditions without halting execution. 


1 Unexpected NEXT 
A NEXT command has been encountered while not in a FOR loop, or the 
control variable in the NEXT command does not match that in the FOR. 


2 Syntax Error 
Basic cannot understand the given line because a construct within it is not 
legal. 


3 Unexpected RETURN 
A RETURN instruction has been encountered when not in a subroutine. 


4 DATA exhausted 
A READ instruction has attempted to read beyond the end of the last DATA. 


5 Improper argument 
This is a general purpose error. The value of a function's argument, or a 
command parameter is invalid in some way. 


6 Overflow 

The result of an arithmetic operation has overflowed. This may be a floating 
point overflow, in which case some operatioin has yielded a value greater 
than 1.7E t 38 (approximately). Alternatively, this may be the result of a 
failed attempt to change a floating point number to a 16-bit signed integer. 


7 Memory full 
The current program or its variables may be simply too big, or the control 
structure is too deeply nested (nested GOSUBs, WHILEs or FORs). 

A MEMORY command will give this error if an attempt is made to set the 
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top of Basic's memory too low, or to an impossibly high value. Note that an 
open file has a buffer allocated to it, and that may restrict the values that 
MEMORY may use. 


8 Line does not exist. 
The line referenced cannot be found. 


9 Subscript out of range 
One of the subscripts in an array reference is too large or less than zero. 


10 Array already dimensioned 
One of the arrays in a DIM statement has already been declared. 


11 Division by zero 
May occur in real division, integer division, integer modulus or in 
exponentiation. 


12 Invalid direct command 
The last command attempted is not valid in direct mode. 


13. Type mismatch 
Anumeric value has been presented where a string value is required or vice 
versa, or an invalidly formed number has been found in READ or INPUT. 


14 String space full 
So many strings have been created that there is no further room available, 
even after ‘garbage collection’. 


15 String too long 
String exceeds 255 characters in length. May be generated by appending 
strings together. 


16 String expression too complex 

String expressions may generate a number of intermediate string values. 
When the number of these values exceeds a system-imposed limit, this error 
results. 


17 Cannot CONTinue 

For one reason or another the current program cannot be restarted using 
CONT. Note that CONT is intended for restarting after a STOP command, 
[ESC][ESC], or an error, and that any alteration of the program in the 
meantime makes a restart impossible. 


18 Unknown user function 
No DEF FN has been executed to define the FN just invoked. 


19 RESUME missing 
The end of the program has been encountered while in error processing 
mode (i.e. in an ON ERROR GOTO routine). 
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20 Unexpected RESUME 
RESUME is only valid while in error processing mode (i.e. inan ON ERROR 
GOTO routine). 


21 Direct command found 
When loading a file, a line without a line number has been found. 


22 Operand missing 
Basic has encountered an incomplete expression. 


23 Line too long 
A line when converted to Basic's internal form becomes too big. 


24 EOF met 
Anattempt has been made to read past the end of the file on the input stream. 


25 ©File type error 

The file being read is not of a suitable type. OPENIN is only prepared to 
open ASCII text files. Similarly, LOAD, RUN, etc., are only prepared to deal 
with file types produced by SAVE. 


26 NEXT missing 

Cannot find a NEXT to match a FOR command. A line number 
accompanying this message indicates the FOR command to which this error 
applies. 


27 File already open 
An OPENIN or OPENOUT command has been executed before the 
previously opened file has been closed. 


28 Unknown command 
Basic cannot finda taker for an external command, i.e. a command preceded 
by a bar |. 


29 WEND missing 
Cannot find a WEND to match a WHILE command. 


30 Unexpected WEND 
Encountered a WEND when not ina WHILE loop, or a WEND that does not 
match the current WHILE loop. 


31 File not open 
See Section E.2. 


32 Broken in 
See Section E.2. 
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E.2. AMSDOS errors 


All disc errors put the number 32 into ERR, but they can be distinguished by 
looking at the state of variable DERR, which returns values as follows. 


0 
22 
142 
143 
144 
145 
146 
147 
148 
149 
150 
15] 


ESC has been pressed. 

ESC has been pressed. 

The data stream is not in a suitable state. 
Hardware end-of-file has been reached. 
Bad command (e.g. incorrect file name). 
File already exists. 

File does not exist. 

Disc directory is full. 

Disc space is full up. 

Disc has been exchanged while files were open. 
File is Read-Only. 

Software end-of-file has been detected. 


Appendix F 


Pre-defined functions 


Basic provides a large number of functions to supplement the arithmetic 
operators and for other purposes. In the explanations below x,y,i,n,s$,ss$ are 


used as follows. 
xX, y 
s$, ss$ 


in 


ABS(x) 
ASC(s$) 


ATN(x) 
BINS(i,n) 
CHR§(n) 


CINT(x) 
COPYCHRS(#n) 


COS(x) 
CREAL(x) 
DEC$(x,form$) 
EXP(x) 

FIX(x) 

FRE(0) 

FRE(‘“”) 


HEXS(i,n) 


numeric expressions, 
string expressions, 
numeric expressions with integer values. 


returns the absolute value of its argument, ignoring sign. 
returns the numeric ASCII code of the first characters in its 
argument. 

calculates the arc-tangent of its argument. 

produces a string of binary digits representing the value of 
its first argument, to the length specified by the second 
argument (0 to 16). 

converts an integer expression in the range 0 to 255 to its 
equivalent as a one-character string. 

rounds its numeric argument to the nearest integer. 

copies a character from the current text cursor position in 
window n, which must be 0 to 7. 

calculates the cosine of its argument. 

converts its argument to a ‘real’, i.e. floating-point, number. 
returns a decimal string representation of the numeric 
argument using the form§$ string argument as a format 
template in the same way as a PRINT USING statement. 
raises e to the power given, where e is 2.71828 
approximately — the base of natural logarithms. 

rounds its argument towards zero, giving the nearest whole 
number but as a floating-point result (not an integer like 
CINT). 

returns the amount of free memory unused, in bytes. 
returns the amount of free memory, like FRE(0), but 
performs a ‘garbage collection’ first. 

produces a digit-string giving the hexadecimal (base 16) 
representation of the first argument, with length given by the 
second argument. 
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HIMEM 
INKEY(i) 
INKEY$ 


INP(n) 
INSTR(s$,ss$) 


INSTR(i,s$,ss$) 
INT(x) 

JOY(n) 
LEFT$(s$,n) 


LEN(s$) 
LOG(x) 


LOG10(x) 
LOWER(s$) 
MAX(arglist) 
MID§(s$,i,n) 
MIN(arglist) 
PEEK(n) 

PI 

POS(#n) 
REMAIN(n) 


RIGHT$(s$,n) 
RND 


ROUND(x,n) 
SGN(x) 


SIN(x) 
SPACES$(n) 
SQ(n) 


returns the highest byte address usable by Basic: may be 
affected by the MEMORY command. 

interrogates the keyboard as explained in Chapter 6. 
returns a one-character string reflecting which key is 
pressed, or the null string if no key is currently being 
pressed. 

gives the status of hardware port number n. 

searches for the second string within the first one and 
returns the position where it was found, or 0 if it was not 
found. 

as above, but starting the search at position i in s$. 
truncates the numeric argument to the nearest smaller whole 
number. 

reads the joystick status (if you have one) where n is 0 

or l. 

returns a string containing the leftmost n characters of the 
string s$. 

returns the number of characters in s§. 

computes the natural logarithm (base e) of x, which must 
exceed zero. 

computes the base-ten logarithm of its argument, which must 
be greater than zero. 

returns a string the same as s$ except that any letters have 
been forced into lower-case. 

returns the largest value in ‘arglist' which is a series of 
numeric expressions separated by commas. 

returns a new String being n characters long, taken from 
position i onwards in s§: if the third argument is absent, the 
rest of the string from position i is returned. 

returns the smallest value in a list of expressions. 

looks at the given memory address and returns its value (0 
to 255). 

returns an approximation to Pi, the ratio between 
circumference and diameter of a circle. 

reports the present horizontal position of the text cursor in 
window number n, which must be specified (0 to 7). 
returns the time remaining on delay timer n (0 to 3) and 
disables that timer. 

returns the last n characters from string s$. 

yields the next fraction, in the range 0 to 1, from the built-in 
random number generator. 

rounds its first argument to n decimal places. 

determines the sign: —1 if x is negative, 0 if it is zero, +1 if 
x Is positive. 

computes the sine of its numeric argument. 

returns a string of n space characters. 

reports the status of sound queue n. 
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SQR(x) 
STR$(n) 
STRINGS(n,s$) 
TAN(x) 
TEST(x,y) 


TESTR(x,y) 


TIME 


UNT(n) 


UPPERS$(s$) 
VAL(s$) 
VPOS(#n) 


XPOS 
YPOS 


returns the positive square root of a non-negative number, 
but produces an error if its argument is negative. 

returns the string representation of a number. 

returns a string containing n copies of the argument s$. 
calculates the tangent of its numeric argument, which must 
lie in the range —200000 to 200000. 

moves the graphics cursor to coordinate x,y and returns the 
ink-number of the hue it finds there. 

moves the graphics cursor by the horizontal and vertical 
displacements x and y, returning the ink-code it finds at that 
point. 

gives the elapsed time since the computer was switched on 
or reset, in 300ths of a second. 

returns an integer in the range —32768 to +32767 which is 
the two's-complement equivalent of the unsigned value of its 
argument (0 to 65535). 

returns a string with the same characters as s$, except that 
all letters are in upper case. 

converts a string representation of a number into its numeric 
equivalent. 

reports the vertical position of the text cursor in window n, 
which must be in the range 0 to 7. 

returns the current horizontal position to the graphics cursor. 
returns the current vertical position of the graphics cursor. 
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Glossary of computing terms 


ADDRESS 


ALGORITHM 


ALPHANUMERIC 
AMSDOS 


ARGUMENT 


ARRAY 


ARTIFICIAL INTELLIGENCE 


ASCII 


BASIC 


BINARY 


BIT 


BOOLEAN 


BOOTSTRAP 


BUFFER 


The location in a computer's memory where a 
number or instruction is stored. 

A method of solving a problem (often 
mathematical) in a finite number of steps. 
Composed of letters and/or digits only. 

The Amstrad Disc Operating System, a program 
that controls all disc-access from within Basic. 
Variable passed to a subroutine or function when 
it is called. (See also Parameter.) 

Collection of data under one name whose 
members are individually identified by 
subscripts. 

The study of ways of making machines 
(especially computers) solve problems in an 
intelligent fashion, typically by behaving more 
like human beings than machines usually do. 
American Standard Code for Information 
Interchange. 

Beginner's All-purpose Symbolic Instruction 
Code. 

Related to the number system based on 2, using 
only the digits 0 and 1. 

Binary digit — either 0 or 1 - the elementary unit 
of information. 

Referring to the logical algebra developed by 
George Boole in the 19th century where 
propositions may be true or false only. True and 
false are usually signified as | and 0. 

System programs such as CP/M do not load 
themselves into RAM. Normally they are 
‘bootstrapped' into memory by a small routine 
resident in ROM that initiates the loading process 
at a specific memory location. 

An old fool. Alternatively a queue in RAM where 
pending information is held before it is 
processed. 
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BYTE 

CALL 
CARRIAGE-RETURN 
CHAINING 
CHANNEL 
CHARACTER 


COLD BOOT 
COMMAND 


COMPILER 


COMPUTER 
CONSTANT 


CPU 
CP/M 


CURSOR 
DATA 
DATABASE 
DATAFILE 
DEBUGGING 
DEFAULT 


DIMENSION 
DISC 


EDITING 


EOF 
ERROR MESSAGE 


EXPRESSION 
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A fault in a program that causes it to fail, hence 
‘de-bugging’. 

A group of 8 bits. 

Transfer control to a subroutine or function. 
The movement of a print-head or display cursor 
to the start of a new line. 

Splitting up a large program into smaller linked 
segments. 

A route for computer output to a peripheral, 
particularly disc. See Stream. 

A single symbol that a computer can recognize, 
e.g. letters A-Z, numerals 0-9 and various other 
signs. 

Re-starting a computer system from scratch. 

An instruction that causes Basic to take 
immediate action, generally issued outside a 
program. 

A program that translates from a programming 
language such as Basic into the computer's own 
instruction code. 

Machine for processing information according to 
a program of instructions. 

Fixed value. 

Central Processing Unit. 

Control Program/Monitor. An operating system 
written by Gary Kildall of Digital Research for 
small computers based on the 8080 or Z80 
chips. 

A movable marker indicating where on the 
screen text or graphics is to appear. 
Information available to a program. 

An organized collection of datafifles. 

A file containing data, not programs. 

Trying to repair the damage caused by bad 
program design. 

Value assumed when no explicit value is 
provided. 

The range of an array subscript. 

Rigid or flexible rotating magnetic medium for 
long-term storage of programs and data. 

The process of inserting, deleting and/or 
replacing lines of a program or file. 

End Of File. 

Confusing description typed by the system when 
something goes wrong. 

Rule for computing a value from linked operators 
and operands. 
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FILE 
FLOATING-POINT 
FLOWCHART 
FUNCTION 


FUNCTION KEY 
FRONT-END 


GARBAGE COLLECTION 


GLOBAL 
GLOSSARY 


GRAPHICS 
HACKER 


HARDWARE 
HEURISTIC 


HEXADECIMAL 
1/0 
INFERENCE ENGINE 


INPUT 
INSTRUCTION 


INTEGER 
INTERPRETER 
JARGON 
KEYBOARD 
KEYWORD 


KNOWLEDGE BASE 


Program or data saved on disc or other backing- 
store. 

Notation expressing numbers as base times 
exponent, also called ‘real’. 

Diagram showing the connections between steps 
in a procedure or program. 

Procedure yielding a single result from one or 
more given values or arguments. 

A key assigned for a specific task. 

Computer that handles I/O for another computer, 
or program that handles I/O for another program. 
Procedure for reclaiming space taken by 
information that is no longer needed. Garbage 
collection normally takes place ‘behind the 
scenes when the system runs out of room, e.g. 
when creating temporary work-strings. 

Global variables can be accessed from any part 
of a program: they are not local. 

List of mystifying explanations not containing the 
word you seek. 

The drawing of images on computer screens. 
Person (usually male) who spends an inordinate 
amount of time hacking away at a computer — 
often with the intention of breaking into other 
people's remote computer systems via the 
telephone network. 

The physical machinery of a computer system. 
A method of solving a problem which is quick 
but not foolproof. 

Relating to the number system to the base 16. 
Input/Output. 

That part of an expert system which draws 
conclusions from evidence given. 

Getting information into a computer. 

Sequence of symbols that tells the computer 
what to do next. 

Whole number. 

Program that interprets a program in Basic or 
another programming language which the 
computer cannot understand directly. 

Words and phrases useful in advancing your 
chosen career. 

The mechanism for typing characters into the 
computer. 

Word recognized as having a pre-defined 
meaning in a programming language. 

The part of an expert system which stores its 





238 





APPENDIX G 





LINE NUMBER 


LOCAL 


LOOP 
MACHINE CODE 


MATRIX 

MONITOR 

ON-LINE 

OPERAND 
OPERATING SYSTEM 


OPERATOR 


OUTPUT 


PARAMETER 


PERIPHERAL 


PIXEL 


POINTER 


PROCEDURE 


PROGRAM 
PROGRAMMER 
RAM 

RANDOM ACCESS 


RECORD 
RECURSION 
ROM 
ROUTINE 
RUNTIME 


expertise, usually in the form of hundreds of 
decision rules. 

Number preceding a Basic statement used for 
sequencing and editing. 

A local variable belongs to only one part ofa 
program, for instance a function or procedure. 
Amstrad Basic does not have true local 
variables. 

Portion of a program that is executed repeatedly. 
The language that is directly understood by the 
computer's hardware without further translation. 
An array with two dimensions. 

Colour or monochrome display unit. 

Connected to a computer. 

Value used by an operator in computing a result. 
Software that controls the operation of a 
computer system while it is active. 

Keyword or special symbol that links operands 
into an expression which can be evaluated. 
Getting results out of the computer, typically in a 
form humans can understand. 

Value supplied to a procedure or instruction to 
tell it, for example, which of several options to 
choose. (See Argument.) 

Device attached to a computer and used for I/O, 
e.g. a printer. 

The smallest addressable area of the display 
screen. 

Variable locating a record in a datafile or 
sometimes an element in another kind of data 
structure. 

Collection of instructions grouped together to 
carry out a unitary task and given an identifying 
name. Routines are not generally considered to 
be procedures unless they have local variables 
and parameters. Hence Amstrad Basic does not 
support true procedures. 

Sequence of computer instructions. 

Harmless drudge. 

Read-And-write Memory. 

Applied to files whose records may be 
processed in any order. 

Chunk of data in a file or table. 

See Self-reference. 

Read-Only-Memory. 

Subroutine, Function or Procedure. 

CPU time used by a program. 
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SECTOR 


SELF-REFERENCE 
SEQUENTIAL 


SERIAL 
SOFTWARE 


SORTING 
STACK 
STATEMENT 
STREAM 
STRING 
SUBROUTINE 
SUBSCRIPT 
SYSTEM 
TIMESHARING 


VALUE 
VARIABLE 


VDU 
VECTOR 
WARM BOOT 


WINDOW 


WORKING MEMORY 


A block of data on disc: AMSDOS uses sectors of 
512 bytes in length. 

See Self-reference. 

Sequential files may only be processed in serial 
order. 

See Sequential. 

Programs and routines that make the computer 
behave as an integrated system. 

Arranging data in ascending or descending 
order. 

A data structure for ‘stacking’ information, where 
the last entry in is the first entry out. 

Instruction line within a program. 

A route for output from the computer. 

Sequence of characters. 

Group of instructions for performing a specific 
purpose. 

Value which locates an element in an array. 
Vague but prestigious word. 

Method of serving many users at once on one 
computer, by allocating short time-slices to each. 
The information represented by a variable. 
Name for a value that can change during 
program execution. 

Visual Display Unit. 

Array of one dimension. 

A warm boot re-initializes a computer system 
without shutting it down and therefore without 
necessarily losing the contents of memory. See 
Cold Boot. 

An independent section of the main screen area 
which behaves like a miniature screen in its own 
right. 

Place where a Basic program may be run, edited 
or listed. 


Appendix H 


Hints on further reading 
(Select bibliography) 


The following admittedly incomplete list should help you get beyond the 
level of mere competence in Amstrad Basic. There are plenty of 
introductory Basic books for the Amstrad, but we have picked out mainly 
those which we think will expand your programming horizons. (Prices may 
be out of date by the time you read this.) 


Atherton, Roy (1982), Structured Programming with COMAL, Ellis Horwood 
Ltd, Chichester (£9.50). 

An excellent academically-oriented textbook on a language devised in 
the late 1970s to remedy Basic's major weaknesses by a Danish 
educationalist called Borge Christensen. Comal has never really taken off in 
the UK, but this book is still valuable for giving the Basic programmer a 
broader perspective. 


Colwill, Steve (1985), Games & Graphics Programming on the Amstrad 
Computers, Micro Press (£9.95) 

A well-written introduction to some of the more advanced techniques 
used in games and graphics programming. 


Forsyth, Richard (1982), Pascal at Work and Play, Chapman and Hall, 
London (£7.50) 

Sooner or later the Basic programmer feels the need to learn a ‘grown-up’ 
computer language. Pascal is one of the best choices, and this book is one of 
the better introductions to that language. 


Forsyth, Richard and Morris, Brian (1985), The BBC BASIC Idea, Chapman 
and Hall/Methuen, London (£6.95). 
The forerunner of the present work. Why not collect the set? 


Forsyth, Richard and Naylor, Chris (1986), The Hitch-hiker's Guide to 
Artificial Intelligence, Amstrad edition, Chapman and Hall/Methuen, 
London (£8.75). 
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For those who want to take up some of the ideas on Artificial Intelligence 
introduced in the present book, this is one of the best-informed popular 
surveys of that subject. It also has plenty of interesting examples in Amstrad 
Basic to while away your time. 


Gifford, Clive and Hartnell, Tim (1985), The Amstrad Programmer's Guide, 
Pitman, London (£6.95). 

Acut above the usual rushed jobs that accompany the launch of any new 
microcomputer, this book is worth reading for a number of reasons, not least 
its explanations of sound and graphics. 


Gray, Sean (1985), Amstrad Book 2 - Sound, Graphics and Data Handling, 
Glentop Publishers (£5.95). 

Good value as a quick introduction to sound and graphics on the Amstrad, 
though less informative about what the author is pleased to call a ‘database’ 
system. 


Lewis, T.G. (1979), Software Engineering for Micros, Hayden (£6.50). 

A quirky but interesting romp round the field of structured programming 
techniques, concentrating mainly but not exclusively on low-level assemb- 
ler-language problems. 


Miller, Alan (1983), Mastering CP/M, Sybex (£13.50). 

If you want to roam the plentiful pastures of CP/M, to which your CPC 664 
or CPC6128 provides access, this is a good book to read. It will take you 
beyond the basics which were all we had room for in the present slim 
volume. 


Naylor, Chris (1983), Build Your Own Expert System, Sigma Technical Press 
(£6.95). 

This was the first book to bring expert-systems methods to the masses. For 
this it provoked some displeasure in ‘higher places’: the trouble being that it 
is so clearly written, it makes the subject sound rather easy. Read it and 
enjoy it. All the examples are in a simple dialect of Basic which you should 
not find too hard to convert for the Amstrad. 


Ogdin, Carol-Anne (1978), Software Design for Microcomputers, Reward/ 
Prentice-Hall, Englewood Cliffs (£11.50). 

A good solid treatment of the problems of designing well-structured 
software. 


Zaks, Rodnay (1980), Programming the Z80, Sybex (£15.50). 
For those who want to go on to machine-code with their Amstrads, this is as 
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good a guide as any to the language of the Z80 processor on which the 
Amstrad computers are based. 


Zaks, Rodnay (1980), Introduction to Pascal, Sybex (£15.50). 

The redoubtable Dr Zaks has not produced the cheapest book on Pascal, 
but he has produced one of the most thorough. It also deals with the major 
dialectic variant of Pascal, namely the UCSD version. The standard of 
programming textbooks has risen slowly over the last fifteen years, due in 
part to the efforts of Dr Zaks himself; but there is still plenty of rubbish about. 
If you want to see how it should be done properly, study this book: you may 
also stretch your mind beyond the confines of Basic in the process. 


Answers to 
selected exercises 


Model solutions are given here to all the odd-numbered exercises in the 
even-numbered chapters and to the even-numbered exercises in odd- 
numbered chapters. Program listings are accompanied, where appropriate, 
by sample printouts. 

There is always more than one way of writing a program, so these 
answers, though correct, should not be regarded as definitive. 





| Exercise 3.2 Fibonacci series 





10 REM KEKE KKEKKKEKEKEKEKKKEKKKKKKKKE 


11 REM ** Exercise 3.2 : ballad 
12 REM ** FIBONACCI SERIES Ladiad 
15 REM KEKE KEKEKEEKKEKKKEKKKKKEK 
50 3 

100 REM -- Fibonacci Numbers: 

1i¢ CLS 

120 PRINT "“---- FIBONACCI SERIES ----" 
130 PRINT "Term No.","Term Value" 

140 previous=0 

150 last=1 


160 toplimit=1000000 

170 t%=0: term=0 

180 WHILE term < toplimit 

190 term = previoust+last 

200 t=tst1 

210 PRINT t%,term 

220 previous=last: last=term 
230 WEND 

250 PRINT "---- FIBONACCI SERIES ----" 
300 END 

320 : 


---- FIBONACCI SERIES ---- 
Term No. Term Value 


DAU &WNHrH 
rFPoOuUwWnr 
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10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 


21 

34 

55 

89 

144 
233 
377 
610 
987 
1597 
2584 
4181 
6765 
10946 
ITLY 
28657 
46368 
75025 
121393 
196418 
317811 
514229 
832040 
1346269 


---- FIBONACCI SERIES ---- 
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Exercise 3.4 Array reversal 








LO REM RRR RRR RRR KKK KK RK KEK KK KKK 


11 REM ** Exercise 3.4 : badd 
12 REM ** ARRAY REVERSAL baled 
15 REM KAEKKKKEKEKKKEKEEKEKKKKKAKKKKKKKKKKKEK 
50 + 
100 REM -- Inverting an Array: 
110 CLS 
120 PRINT "---- ARRAY REVERSAL ----" 
130 INPUT "How many items in the input ",size% 
140 DIM datlist(size$) 
150 FOR item%=1 TO size$% 
160 PRINT "Enter item no.";item%; 
170 INPUT datlist (items) 
180 NEXT items 
190 PRINT 
200 PRINT "---- OUTPUT OF DATA ----" 
210 PRINT "Item No.","Original","Reverse" 
220 FOR item%=size% TO 1 STEP -1 
230 original $=size%+l-items 
240 PRINT original%,datlist(original$) ,datlist (items) 
250 NEXT item% 
260 PRINT 
300 END 
320 : 
---- ARRAY REVERSAL ---- 
How many items in the input 7 
Enter item no. 1 ? 
Enter item no. 2 ? 22 
Enter item no. 3 ? 333 
Enter item no. 4 ? 4444 
Enter item no. 5 ? 55555 
Enter item no. 6 ? 666666 
Enter item no. 7 ? 7777777 
---- OUTPUT OF DATA ---- 
Item No. Original Reverse 
1 1 7777777 
2 22 666666 
3 333 55555 
4 4444 4444 
5 55555 333 
6 666666 22 
7 PIIIIST b 


Ready 
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| Exercise 3.6 Asset depreciation 





10 REM [RE RERESE RES E SESE ESE SESS SESS SE SY 


11 REM ** Exercise 3.6 : we 


12 REM ** ASSET DEPRECIATION ne 
15 REM 3 III IOI I Itt 


50 


100. 


110 
120 
130 
140 
150 
160 
170 
175 
180 
200 
220 
230 
240 
250 
260 
270 
280 
300 
320 


REM -- Depreciating an Asset: 
CLS 
PRINT "---- ASSET DEPRECIATION ----" 
year%=0: loss=0 
INPUT "Enter the asset’s price: ",cost 
INPUT "Enter its salvage value: ",salvage 
INPUT "Enter its depreciation % ",rate 
rate=rate/100: v=cost 
PRINT 
PRINT "Year Depreciation Value" 
PRINT year%,loss,v 
WHILE v>salvage 
year%=year%+1 
loss=loss + rate*v 
v = cost-loss 
IF v<salvage THEN v=salvage: loss=cost-salvage 
PRINT year%,loss,v 
WEND 
END 


---- ASSET DEPRECIATION ---- 
Enter the asset’s price: 2500 
Enter its salvage value: 1000 
Enter its depreciation % 12.5 


Year 


NDUBWNHrRO 


Depreciation Value 
0 2500 
312-5 2187.5 
585.9375 1914.0625 


825.195313 1674.80469 
1034.5459 1465.4541 

1217.72766 1282.27234 
1378.0117 1121.9883 

1500 1000 


Ready 
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Exercise 4.1 Roots and powers 











10 REM RHEKKKKRAKEKEKKKKEKKKKKEKEKKKKKKKKKKK 
11 REM ** Exercise 4.1 : ae 
12 REM ** ROOTS & POWERS ae 
15 REM KEKE KKEKKKEKKEKKEKEKKKKKKKKKKKHKE 
50 : 
100 REM -- Roots and Powers: 
110 CLS 
120 PRINT “---- THE POWERS THAT BE ----" 
150 GOSUB 1000 : REM define functions 
160 INPUT "Number "; n 
170 INPUT "Index "; r 
180 PRINT r;"th power of";n;"=";FNexpo(n,r) 
190 PRINT r;"th root of ";n;"=";FNroot(n,r) 
200 PRINT 
300 END 
330: : 
1000 REM -- Subprogram with function definitions: 
1010 DEF FNroot(a,b) = EXP(LOG(ABS(a))/b)*SGN(a) 
1020 REM collapses with negative roots. 
1030 : 
1050 DEF FNexpo(a,b) = a~b 
1060 RETURN 
1070 : 
---- THE POWERS THAT BE ---- 
Number ? 10 
Index ? -2 
-2 th power of 10 = 0.01 
-2 th root of 10 = 0.316227766 
Ready 
---- THE POWERS THAT BE ---- 
Number ? 4096 
Index ? 4 
4 th power of 4096 = 2.81475F+14 
4 th root of 4096 = 8 


Ready 
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Exercise 4.3 Pascal's triangle 








10 R 
11 R 
12 R 
15.:R 
50 : 
100 
110 
120 
130 
140 
150 
160 
170 
200 
300 
330 
1000 
1010 
1020 
1025 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
2000 
2010 
2020 
2030 
2040 
2050 


Last 


EM REE KEKEKKEHKEEKKKKKKKKKKKKKEK 
EM ** Exercise 4.3 : =* 
EM ** PASCAL’S TRIANGLE ** 
EM KEKKKKEKKEKKKKKKKKKKKKKKKKKRKKKKK 
REM -- Pascal’s Triangle: 

CLS 

PRINT "---- PASCAL’S TRIANGLE ----" 


DIM triangle%(24) 
triangle%(0)=0: triangle%(1)=1l 


wt=4 

INPUT "Last Row Number "; rows% 
GOSUB 1000 : REM generate triangle 
PRINT 
END 

REM -- Triangle routine: 


FOR r%=l TO rows% 

GOSUB 2000 : REM make new row 

left%=w%* (rows%-r%) \ 2 

PRINT TAB(left$); 

FOR c%=l TO r% 
PRINT TAB(left%+w%*c%) ;triangle%(c$%); 
NEXT c% 

NEXT r% 

PRINT 

RETURN 

REM -- Routine to make one line: 

FOR tp%=r% TO 2 STEP -1l 
triangle%(tp%)=triangle%(tp%)+triangle$%(tp%-1) 
NEXT tp% 

RETURN 


PASCAL’S TRIANGLE ---- 
Row Number ? 7 





| 
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| Exercise 4.5 Prime numbers | 





LO REM 2 III III II Ot 


11 REM ** Exercise 4.5 : igi 

12 REM ** PRIME NUMBERS ae 

15 REM KEKE KEKEKEKEKEKKKHKKKKKKKKKEK 

50 : 

100 REM -- Prime Numbers: 

110 CLS 

120 PRINT "---- PRIME NUMBERS ----" 

130 toplimit%=100: pcount%=1 

140 DIM pnum%(toplimit$) 

150 pnum$(0)=1: pnum%(1)=2 

160 primenum$=3 

170 PRINT "The first";toplimit%;"primes are:" 
200 WHILE pcount%<toplimits 

210 divisors%=0 

220 GOSUB 1000 : REM test latest number 
230 IF divisors%=0 THEN PRINT primenum%;: pcount%=pcount$+l 
240 primenum%=primenum$+2 

250 WEND 

260 REM steps through odd numbers. 

270 PRINT 

300 END 

330 : 

1000 REM -- Routine to test primenum$: 
1010 pmax%=SOQR(primenums ) 

1020 FOR p%=1 TO pcount$% 

1030 IF (primenum$ MOD pnum%(p%) = 0) THEN divisors%$=l1: p%=pco 

unt% 

1040 IF pnum%(p%)>=pmax% THEN p%=pcount’% 
1050 NEXT p% 

1060 REM loop ends early if p%>pmax% or divisor found. 
1070 pnum$(pcount%+1 )=primenums 

1075 RETURN 

1080 : 

---- PRIME NUMBERS ---- 

The first 100 primes are: 

Sry ede Slee SB gtlying GY 23s 229.0 "37 

a7 41° 43 47 53 59 61. 6F FL 9G 

79 #83 89 97 101 2103 #2107 «109 

TU3 127 T3l. 137. 139° 249° 1S) 157 
163: 167. (173° 179. 18le 191 193. 197 
199 217 -223° 227 .229 .233. 239 °241 
251 257 263 269 271 277 #281 283 
293° 307. 3112-373. 317. 33) 337 347 
349 353 359 367 373 379 383 389 
397 401 409 419 421 431 433 439 
443 449 457 461 463 467 479 487 
491 499 503 509 521 523 541 

Ready 
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| Exercise 4.7 Perfect numbers 





10 REM 2 II III II III I Ik 


11 R 
12=-R 
15 R 
50-4 
100 
110 
120 
130 
140 
150 
160 
200 
210 
215 
220 
230 
240 
ELS 
250 
270 
300 
330 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
2000 
2010 
2020 
2030 
2040 
2050 
2070 
2075 
2080 


TEST 
TEST 


5 
TESTING 6 
TESTING 7 
TESTING 8 
TESTING 9 
TESTING 10 
TESTING 11 


TEST 
TEST 


TESTING 14 
TESTING 15 
TESTING 16 
TESTING 17 
TESTING 18 
TESTING 19 


EM ** Exercise 4.7 : wk 


EM ** PERFECT NUMBERS ical 
EM 1 II III II III 


REM -- Perfect Numbers: 

CLS 

PRINT "---- PERFECT NUMBERS ----" 

toplimit%=100 

DIM fact%(toplimit?’) 

possible%=3 

perfects%=0 

WHILE perfects%<2 
possible%=possible%+1 
PRINT "TESTING ";possible$; 
pointer%=l: tote%=1 
GOSUB 1000 : REM test for perfection 
IF perfect% THEN PRINT " = PERFECT": perfects%=perfects%+l 

F PRINT " = IMPERFECT" 
WEND 

PRINT 

END 


REM -- Routine to test perfection: 
sqrt%=SQOR(possible$) 
FOR numb%=2 TO sqrt% 
GOSUB 2000 : REM get factors 
IF tote%>possible% THEN numb%=sqrt%: REM quit loop 
NEXT numb% 
IF tote%=possible% THEN perfect%=l1 ELSE perfect%=0 
RETURN 


REM -- Factorization routine: 

IF possible% MOD numb% <> 0 THEN RETURN 
fact%(pointer% )=numb% 
fact%(pointer%+l)=(possible% \ numb$%) 
tote%=totes+fact%(pointer$)+fact%(pointers+] ) 
pointer%=pointer%+2 

RETURN 

REM factors stored in fact%(). 


PERFECT NUMBERS ---- 
ING IMPERFECT 
ING IMPERFECT 
PERFECT 
IMPERFECT 
IMPERFECT 
IMPERFECT 

IMPERFECT 

IMPERFECT 

IMPERFECT 

IMPERFECT 

IMPERFECT 

IMPERFECT 

IMPERFECT 

IMPERFECT 

IMPERFECT 

IMPERFECT 


ING 12 
ING 13 
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TESTING 20 = IMPERFECT 
TESTING 21 = IMPERFECT 
TESTING 22 = IMPERFECT 
TESTING 23 = IMPERFECT 
TESTING 24 = IMPERFECT 
TESTING 25 = IMPERFECT 
TESTING 26 = IMPERFECT 
TESTING 27 = IMPERFECT 
TESTING 28 = PERFECT 





Exercise 5.2 Procrustes 








10 REM KAEKKKKKKKMKKKEKKKKEKKKKKKKKKKKKKK 


11 REM ** Exercise 5.2 : ** 
12 REM ** PROCRUSTES * 
15 REM KKK KKK KKK KHEKKKKKKKKKKEK KKK KK KK 
50.3 

100 REM -- Procrustean Program: 

110 CLS 

120 PRINT “---- RED OF PROCRUSTES =-~-" 
140 padcharS=".": textS=padchar$ 


144 REM change padchar$ for different padding (e.g. space). 
150 WHILE textS$<>"" 

160 INPUT "Enter your string ",text$ 

170 INPUT "Enter desired length ", size% 

180 INPUT "Enter “L” for leading spaces ",paddings 

190 IF UPPERS(padding$)="L" THEN lpad%=1 ELSE lpad$=0 


200 PRINT “!)1"stextS.3" £1" 

210 PRINT " BECOMES" 

220 GOSUB 1000 : REM chop and pad 
240 PRINT "!!"snewtextS;"!!1" 

250 WEND 

270 PRINT 

300 END 

330 : 


1000 REM -- Chop & pad routine: 

1010 REM aiven textS produces newtextS 

1020 s%=LEN(texts ) 

1030 IF s%>size% THEN newtextS=LEFTS(text$,size%): RETURN 

1040 gaps$=STRINGS (size%-s%,padchars$ ) 

1050 IF lpad% THEN newtextS=gaps$+text$ ELSE newtextS=textS$+gaps 
$ 

1070 RETURN 

1080 : 
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Exercise 5.4 Left and right string 








10 REM KRKKKKKKKEKKEKKEKKEKKEKEKKKKKKKKKK 


11 REM ** Exercise 5.4 : ae 
12 REM ** LEFT AND RIGHT STRINGS “* 
15 REM PRE RERSESPSSSSE SESE SERS S ESSE SSS SS 
SOs 

100 REM -- Simulated LEFTS and RIGHTS: 
110 CLS 

120 PRINT "---- HEADS AND TAILS ----" 


140 texts="*" 

148 REM -- Main loop: 

150 WHILE textS<>"" 

160 INPUT "Enter your string ",text$ 

170 INPUT "Enter substring length ", size% 

180 PRINT "Leftmost";size%;"Ccharacters are : : 
190 GOSUB 1000 : REM left string 

200 PRINT newtext$ 

210 PRINT "Rightmost";size%;"characters are: : 
220 GOSUB 1200 : REM right string 

230 PRINT newtextS 

240 PRINT 

250 WEND 

270 PRINT 

300 END 

330 : 

1000 REM -- Left-string routine: 

1010 newtextS=MIDS(text$,1,size%) 

1020 RETURN 

1050 

1200 REM -- right-string routine: 

1202 IF size%>LEN(text$) THEN newtext$=textS: RETURN 
1210 newtextS=MIDS(text$,LEN(text$ )-size%+1) 

1220 RETURN 

1250 : 


---- HEADS AND TAILS ---- 

Enter your string Julius Caesar 
Enter substring length 7 

Leftmost 7 characters are : Julius 
Rightmost 7 characters are: Caesar 


Enter your string Amstrad stinks! 
Enter substring length 6 

Leftmost 6 characters are : Amstra 
Rightmost 6 characters are: tinks! 


Enter your string Bonk 

Enter substring length 10 
Leftmost 10 characters are : Bonk 
Rightmost 10 characters are: Bonk 


Enter your string 
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Exercise 5.6 Instring 








10 R 
11 R 
12 R 
15 R 
50 : 
100 
110 
120 
130 
140 
148 
150 
160 
170 
180 
190 
$ 
200 
ring 
210 
220 
270 
300 
330 


1000. 


1010 
1020 
1025 
1030 
1040 
1050 
°1055 
1060 
1070 
1080 
1090 


RE 


1100 
1110 
oop 

1120 
1140 
1150 


Ente 
Ente 
wild 
Wild 


Ente 
Ente 
210? 
Hell 


Ente 
Ente 
get 


EM KEKE KEKKEKKKKKEKKKEKKKKKKKKKKEKEK 

EM ** Exercise 5.6 : ee 

EM ** INSTRING ak 

EM KKKRKKKKKEKKEEKKKKKKKKKKKKKKKKKKKK 

REM -- Simulated INSTR with wildcards: 
CLS 

PRINT "---- WILD-CARD INSTRING ----" 
wild$="?" 

text$="*" 


REM -- Main loop: 
WHILE text$<>"" 
INPUT "Enter the string ",textS$ 
INPUT "Enter a subtring ",seekS 
GOSUB 1000 : REM look for it 
IF instring%=0 THEN PRINT seek$;" does not occur in ";text 


IF instring%>0 THEN PRINT seek$;" occurs at position";inst 


$:"of "stexts 
PRINT 
WEND 
PRINT 
END 
REM -- Instring subroutine: 


lenl1$%=LEN(texts$ ) 
len2%=LEN(seekS ) 
instring%=0 
IF lenl%*len2%=0 THEN RETURN 
FOR ps%=1 TO lenl%-len2$%+1 
ch$=LOWERS (MIDS (text$,ps%, len2%) ) 
mismatch%=0 
FOR px%=l TO len2% 
cx$=MIDS (chS,px%,1) 
cy$=LOWERS (MIDS (seek$,px%,1) ) 
IF cx$<>cy$ AND cy$<>wildS THEN mismatch$%=1: px%=len2$% 
M quit inner loop 
NEXT px% 
IF mismatch$=0 THEN instring%=ps%: ps%=lenl% : REM quit 1 


NEXT ps% 
RETURN 


WILD-CARD INSTRING ---- 

r the string Wild Cardinals! 
r a subtring wild card 

card occurs at position 1 of 
Cardinals! 


r the string Hello Folks! 

r a subtring ?10??01? 

?01? occurs at position 3 of 
o Folks! 


r the string Get lost 
ra subtring get stuffed 
stuffed does not occur in Get lost 
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Enter the string Goodbye 


Enter a subtring bye bye! 
bye bye! does not occur in Goodbye 


Enter the string 
Enter a subtring 
does not occur in 


Ready 


| Exercise 6.1 Reaction timer 


10 REM FO ITI ITOK IK TOK KK TT TK IKK KK KKK 


11 REM ** Exercise 6.1 : ee 
12 REM ** REACTION TIMER ex 
15 REM KKK KK IKK KKK KK KKK KKK KEK KEKE 
50) .: 

100 REM -- Reaction Timer: 

110 CLS 

120 PRINT "---- TYPING TUTORIAL ----" 


130 PRINT "(1) The screen will clear." 

140 PRINT "(2) Text will suddenly appear." 
150 PRINT "(3) You must copy the text." 

160 PRINT "(4) Your reaction will be timed." 
170 PRINT 

175 PRINT "Press a key to begin." 

180 textS="The Slow Blue Fox" 


188 aS=INKEYS$: IF a$="" THEN GOTO 188 
190 REM -- Main Loop: 

199 aS="$" 

200 WHILE a$<>"!" 

210 CLS 


220 GOSUB 1000 : REM display text$ 
230 PRINT 
240 PRINT USING "Initial reaction time = ####.##";reactime 


250 PRINT USING "Typing time (seconds) = ####.##";typetime 
260 PRINT USING "Accuracy (3%) = ####.4##"; percent 
270 PRINT: PRINT "Hit ! to stop, other keys to go on." 

280 aS=INKFYS: IF a$="" THEN GOTO 280 

290 WEND 

300 END 

330 : 

1000 REM -- Display routine: 


1010 r%=INT(RND*15)+1: c8=INT(8*RND)+2 
1020 FOR d%=l1 TO 200+RND*800 

1030 NEXT d% : REM delay 

1040 LOCATE c%,r%: PRINT text$ 

1050 t0O=TIMF 


1060 ch$=INKEYS$: IF ch$="" THEN GOTO 1060 
1070 tl=TIME: PRINT chS$; 
1080 LINE INPUT "", in$ 


1090 t2=TIME 

1100 in$=ch$+in$ 

1110 GOSUB 1600 : REM scoring 
1120 reactime=+(t1l-t0)/300 
1130 typetime=(t2-t1)/300 
1150 RETURN 
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1160 

1600 REM -- Scoring routine: 
1610 size%=LEN(text$ ) 

1620 s%=0 


1640 FOR pp%=1l TO size% 

1650 IF MIDS$(text$,pp%,1)=MIDS(in$,pp%,l) THEN s%=s$+l 
1670 NEXT pp% 

1680 percent=s%*100/size% 

1700 RETURN 

1720 


The Slow Blue Fox 
thngbe slow blue dog! 


Initial reaction time = 0.86 
Typing time (seconds) = 4.61 
Accuracy ($%) ~ 5.88 


Hit ! to stop, other keys to go on. 


The Slow Blue Fox 
The Slow Blue Fox 


Initial reaction time = 0.64 
Typing time (seconds) = 3.34 
Accuracy ($%) = 100.00 


Hit ! to stop, other keys to go on. 
Ready 
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Exercise 6.3 Compound interest 








10 REM KKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKK 


11 REM ** Exercise 6.3 : sali 
12 REM ** COMPOUND INTEREST ak 
15 REM KKK KKK KEK KKK KKK KKKKKKKKKKKEK 
50 + 

100 REM -- Interest Tables: 

101 ouch%=8 

110 CLS 

120 PRINT "---- INTEREST/INFLATION ----" 
125 WIDTH 80 

130 PRINT 


140 DIM a(12) 

150 PRINT "What is initial amount (1 to 5000)"; 

160 INPUT amountl 

170 IF amountl<l OR amountl>5000 THEN PRINT "Try again": GOTO 15 
0 

175 lineformS="## ####.4## ###8.84 #8888. #4 HHH HH HHH. HH 
HHHH HH" 

180 REM -- Set initial values: 

190 FOR i%=2 TO 12 STEP 2 

200 a(i%)=amountl: NEXT i% 


210 REM -- Print headings: 
220 GOSUB 1000 
230 REM -- Main Loop: 


250 FOR y%=l TO 25 
260 FOR i%=2 TO 12 STEP 2 


270 LET interest=a(it)*i%/100 
280 LET a(i%)=a(i%)+interest 
290 NEXT if 


300 PRINT #ouch%, USING lineform$; y$%,a(2),a(4),a(6),a(8),a(10 
),a(12) 

310 NEXT y% 

320 PRINT#ouch’% 


330 END 
360 : 
1000 REM -- Header routine: 


1010 PRINT#ouch% 

1020 PRINT#ouch%, "COMPOUND INTEREST TABLE: " 
1030 PRINT #ouch%, "(Initial Amount =";amountl;")" 
1040 PRINT#ouch% 

1050 PRINT#ouch%, "Period"; 

1060 FOR i%=2 TO 12 STEP 2 

1070 PRINT #ouch$%, TAB(4.5*i%-1) ;i%;"%"; 
1080 NEXT i% 

1090 PRINT#ouch% 

1100 RETURN 

1110 : 


COMPOUND INTEREST TABLE: 
(Initial Amount = 1000 ) 


Period 2 % 4% 6 % 8 % 10 % 12 % 
1 1020.00 1040.00 1060.00 1080.00 1100.00 1120.00 
1040.40 1081.60 1123.60 1166.40 1210.00 1254.40 
1061.21 1124.86 1191.02 1259.71 1331.00 1404.93 
1082.43 1169.86 1262.48 1360.49 1464.10 1573.52 
1104.08 1216.65 1338.23 1469.33 1610.51 1762.34 
1126.16 1265.32 1418.52 1586.87 1771.56 1973.82 
1148.69 1315.93 1503.63 1713.82 1948.72 2210.68 


NHDUPWNH 
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8 1171.66 1368.57 1593.85 1850.93 2143.59 2475.96 

9 1195.09 1423.31 1689.48 1999.00 2357.95 2773.08 

10 1218.99 1480.24 1790.85 2158.93 2593.74 3105.85 

11) 1243.37 1539.45 1898.30 2331.64 2853.12 3478.55 

12 1268.24 1601.03 2012.20 2518.17 3138.43 3895.98 

13° 1293.61 1665.07 2132.93 2719.62 3452.27 4363.49 

14 1319.48 1731.68 2260.90 2937.19 3797.50 4887.11 

15 1345.87 1800.94 2396.56 3172.17 4177.25 5473.57 

16 1372.79 1872.98 2540.35 3425.94 4594.97 6130.39 

17. 1400.24 1947.90 2692.77 3700.02 5054.47 6866.04 

18 1428.25 2025.82 2854.34 3996.02 5559.92 7689.97 

19 1456.81 2106.85 3025.60 4315.70 6115.91 8612.76 

20 1485.95 2191.12 3207.14 4660.96 6727.50 9646.29 

21 1515.67 2278.77 3399.56 5033.83 7400.25 %10803.85 
22 1545.98 2369.92 3603.54 5436.54 8140.27 %12100.31 
23) 1576.90 2464.72 3819.75 5871.46 8954.30 %13552.35 
24 1608.44 2563.30 4048.93 6341.18 9849.73 %15178.63 
25 1640.61 2665.84 4291.87 6848.48 %10834.71 %17000.06 
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10 R 
11 R 
12 R 
1:5:R 
50.3 
100 
101 
110 
120 
125 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
250 
260 
270 
280 
290 
300 
310 
320 
330 
350 
360 
1000 
1010 
1020 
1030 
1040 
1050 


1060 
1070 
1080 
1100 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 


Exercise 6.5 Histogram program 





EM BRR RR RRR KR ERE KKK KR KICK 


EM ** Exercise 6.5 : baled 


EM ** HISTOGRAM PROGRAM i fie! 
EM 2 III III IOI I IOI 


REM -- Sideways Histogram: 

ouch$=8 : REM printer channel 

CLS 

PRINT#ouch%, "---- HISTOGRAM ----" 
WIDTH 80 

PRINT 

DIM x(100) 

star$="*":; RESTORE 

READ nscores% 

IF nscores%<l OR nscores%>100 THEN PRINT "Try again": STOP 
REM -- Get and Scale values: 

GOSUB 1000 


REM -- Heading: 
PRINT #ouch%, "Scaled from 0 to";xmax;"units:" 
PRINT #ouch%, "One star =";xmax/wmax;"units." 


PRINT #ouch$% 
FOR n%=l TO nscores% 
PRINT #ouch%, n%;TAB(6);"|"; 
tabwidth%=x (n%) *wmax/xmax 
FOR star%=l TO tabwidth% 
PRINT #ouch$%, starS$; 
NEXT star% 
PRINT#oOuch%, ROUND(x(n$) ) 
NEXT n% 
PRINT 
END 
REM -- Data input scaling routine: 
wma x=64 
xmax=0 
FOR n%=l TO nscores% 
READ x(n$%) 
IF x(n%)<0 OR x(n%)>999999 THEN PRINT "Data out of range!": 
STOP 
IF x(n%)>xmax THEN xmax=x(n$%) 
NEXT n% 
RETURN 
REM -- Test data: 
DATA 12 
DATA 115.55 
DATA 1123.55 
DATA 1066.26 
DATA 1439.13 
DATA 3567.87 
DATA 3069.75 
DATA 1250.97 
DATA 493.79 
DATA 1418.72 
DATA 2048.70 
DATA 935.25 
DATA 137 
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---- HISTOGRAM ---- 
Scaled from 0 to 3567.87 units: 
One star = 55.7479688 units. 


** 116 


KaKKKKKKKKKKKKKKKEKKEK 1124 

KEKKKKKEKEKKKKKKKKKKE 1066 

KRAEKKKEKKEKEKKKKKKKKKKKKKKKKE 1439 

KKK KK IIH KKK KKK KKK KKK KKK KEK KKK K KKK KKK KKK KEKE KKKKKKKKKKKKEKKKK 
xe 3568 

6 KKK KKK HI KKK KKK KKK KKK KKK KKK KEKE KK KKK KKKKKKKHKKKKKKKKKK 3070 
7 KEKKKKEKKKEKKKEKKHEKKKEKEK 125] 

8 KkKkKKKKKEK 494 
9 


OF WNr 


KKK KEKE KKEKK KKK KEK 1419 
10 KK IK KKK KKK KEKE KK IKKE EKKEKKKKKKKK KKK 2049 
11 RAEKKKEKKKKKKKKEKKEK 935 


2: iach | 
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Exercise 7.2 Word counter 








10 REM REKKKKKKKKKKKKKKKKKKKKKKKKKKKKEK 


11 REM ** Exercise 7.2 : ne 
12 REM ** WORD COUNTER * 
15 REM BERK KKKEKKKEKEKKKKKEKKEKKKKKK KKK KEK 
50s 

100 REM -- Program to Count Words: 

110 CLS 

120 PRINT "---- WORD COUNTER ----" 

130 word%=0 : REM false 

140 spS="_": dash$="-" 


150 INPUT "Text File Name ",f$ 
160 OPENIN f$ 

170 wce%=0: cc%=0 : REM counters 
175 1c%=0 

180 REM -- Main Loop: 

200 WHILE NOT EOF 

210 LINE INPUT #9, text$ 

220 last%=LEN(texts$ ) 

230 FOR c%=1 TO last% 


240 ch$=UPPERS (MIDS (text$,c%,1)) 

250 ccs=cc$t1 

260 alphanum%=0 

270 IF ch$>="A" AND ch$<="Z" THEN alphanum$=1 

280 IF ch$>="0" AND ch$<="9" OR ch$=dash$ THEN alphanum%=2 
290 IF word%=0 AND alphanum%=1l THEN word$%=1 

300 IF word% AND NOT alphanum% THEN word%=0: wc%=wc%+l 
320 NEXT c% 

322 les=lc$t+1 

325 WEND 

330 PRINT 


350 CLOSEIN 

360 PRINT f£$;" has ";cc%;" characters." 
370 PRINT £$;" has ";wc%;" words." 

375 PRINT £$;" has ";lc%;" lines." 

380 PRINT 

400 END 

440 : 


---- WORD COUNTER ---- 
Text File Name text 

text has 231 characters. 
text has 16 words. 


text has 8 lines. 


Ready 
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Exercise 7.4 Menu program 








10 REM KRKEKKKEKKEKKKKKKKKKKKKKKKKKKKKKEK 

11 REM ** Exercise 7.4 belied 

12 REM ** MENU PROGRAM ak 

15 REM RII IO III IOI IO 

50° s 

100 REM -- Menu Program: 

110 MODE 2 

120 PRINT "---- MAIN MENU ----" 

125 PRINT 

140 READ choices% 

150 DIM progname$ (choices$) 

160 FOR counter%=l1 TO choices% 

170 READ prognameS (counter$),text$ 

180 PRINT CHRS$(64+counter$’),progname$S (counter$%),text$ 
200 NEXT counter’ 

220 PRINT: PRINT "---- HIT THE LETTER OF YOUR CHOICE ----" 
230 ch$="*" 

250 WHILE ch$<"A" OR chS>CHRS (64+choices$) 
270 ch$=INKEYS$: IF ch$=""" THEN GOTO 270 

275 ch$=UPPERS (ch$ ) 

280 WEND 

290 ch%=ASC(chS$)-64 

300 PRINT: PRINT ch$;" ---> ";progname$(ch$%) 
310 CHAIN progname$ (ch%) 

400 END 

440 : 

1000 REM -- Menu Data: 

1010 DATA 4 

1020 DATA LIST,Lists a data file 

1030 DATA SORT,Sorts a data file 

1040 DATA KILL,Deletes a data file 

1050 DATA ZONK,Does something vile 

1100 : 

---- MAIN MENU ---- 

A LIST Lists a data file 

B SORT Sorts a data file 
Cc KILL Deletes a data file 
D ZONK Does something vile 


HIT THE: LETTER OF YOUR CHOICE <<<<- 


C =<) KILL 
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Exercise 7.6 Revised golf-handicapper 





10 REM BRR RRR RK KKK KEKE KK KKK KKK KKK KK 


1] REM ** Exercise 7.6 : ee 


12 REM ** REVISED GOLF-HANDICAPPER ax 
15 REM 1 II III II IOI 


20 REM -- Must RUN "BANKMAN" first. 
50 ON ERROR GOTO 500 : REM error trap 
60 : 

100 REM -- GOLFERS: 


101 ouch%=0 : REM 8=printer, 0=screen. 

110 MODE 1 : BORDER 15 

120 recsize%t=24 

125 gaps$=SPACES (recsize%) 

130 chan%=9 

140 INPUT "File Name "; f$ 

150 OPENIN f£$ 

160 GOSUB 1000 : REM load data from file 

170 PRINT: PRINT "Data from file : ";f$ 

180 command%=99 

190 REM -- Main Loop: 

200 WHILE command$% <> 0 

210 GOSUB 1200 : REM menu 

220 IF command%=l THEN GOSUB 1500 : REM new player 
230 IF command$=2 THEN GOSUB 1700 : REM old player 
240 IF command%=3 THEN GOSUB 2000 : REM show player 
250 IF command$=4 THEN GOSUB 2300 : REM handicap 
260 GOSUB 2200 : REM pause 

270 WEND 

280 CLOSEIN 

300 GOSUB 3000 : REM write data back out 

320 PRINT: PRINT "Bye!" 

330 END 

333: °% 

500 REM -- error trap section: 

510 IF ERR=32 AND ERL=150 THEN GOSUB 600 ELSE ON ERROR GOTO 0 
530 RESUME 150 : REM resume 

550% 

600 REM -- create new file (lst time only): 

605 n$=gapss$ 

610 OPENOUT f$ 

615 WRITE#chan%, n$,-99 

620 CLOSEOUT 


630 RETURN 

650 REM contains one dummy record. 
660 : 

1000 REM -- Data input routine: 


1010 recs%=0: r%=0 

1020 | BANKOPEN,recsize% 

1040 WHILE NOT EOF 

1050 INPUT#chan$%, nameS$,h 

1060 h$=LEFTS (STRS$ (h)+gaps$,recsize$) 
1070 nameS$=LEFTS (nameS+gaps$,recsize$) 


1080 | BANKWRITE, @r$,name$ 
1090 IF r%=-1 THEN PRINT "UGH!" 
1100 | BANKWRITE, @r$,h$ 


1110 IF r%=-l OR r%=-2 THEN PRINT "EH!?": STOP 
1120 recs%=recs%$+2 

1130 WEND 

1140 CLOSEIN 

1150 PRINT recs%/2;"items read from file ";f$ 
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1155 
1156 
1160 
1170 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1313 
1320 
1330 
1340 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1595 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1695 
1696 
1699 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1765 
1770 
1780 
1788 
1790 
1800 
1810 
1820 
1850 
1860 
2000 
2010 


PRINT "Press any key to go on 
cS=INKEY$: IF c$="" THEN GOTO 1156 
CLEAR INPUT: RETURN 


REM -- Menu subroutine: 
CLS: PRINT 

PRINT TAB(16);"Options:" 
PRINT TAB(16) ;"======== = 
PRINT TAB(16);"(";f£$S;"]" 
PRINT 





PRINT "1 .... Add a new player" 

PRINT "2 .... Delete an old player" 

PRINT "3 .... Show a player’s details" 

PRINT "4 .... Revise a player’s handicap" 
PRINT: PRINT "No. of option (0 to quit) : "; 
cS=INKEYS$: IF cS$="" THEN GOTO 1310 
command$%=ASC(c$)-48 

PRINT c$ 

RETURN 

REM -- New-player routine: 


PRINT: PRINT "Adding new player:" 
at%=-l : p%=0 
WHILE at%<0 AND p%<recs% 
BANKREAD, @r%,name$,p% 
BANKREAD, @r%,h$,p%+1 
IF r%<0 THEN PRINT "Gasp": STOP 
IF VAL(h$)<0 THEN at%=p% 


pt=pst2 

WEND 
IF at%<0 THEN at%=recs%: recs%=recs%+2 
REM -- Insert at at: 


h=-99 : name$="" 

WHILE (h<0 OR h>36) OR name$="" 
LINE INPUT “Player’s name: ", name$ 
LINE INPUT "Handicap is : ", h$ 
nameS$=LEFTS (name$+gaps$,recsize$ ) 
h=VAL (hS ) 
WEND 

GOSUB 4000 : REM write a record 

PRINT "inserted at location ";at% 


RETURN 

REM -- Record-deletion routine: 
PRINT: PRINT "Record deletion:" 
GOSUB 5000 


GOSUB 4400 : REM show it 
PRINT "OK to delete it (Y=Yes) "; 


cS=INKEY$: IF c$="" THEN GOTO 1750 
ok¥=(cS="Y") OR (cS$="y") 

PRINT cS 

IF NOT ok% THEN PRINT "Not erased.": RETURN 
REM -- mark as dead with -ve handicap: 
PRINT 

h=-99 


GOSUB 4000 : REM write record 
PRINT "Player ";name§;" erased." 
GOSUB 2200 : REM delay 

RETURN 


REM -- Show-details routine: 
PRINT: PRINT "Show details for player:" 
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2020 
2030 
2040 
2050 
2060 
2070 
2080 
2200 
2202 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2475 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
3000 
3010 
3020 
3030 
3040 
3050 
3060 


GOSUB 5000 : REM -- get record number 
IF at%<0 THEN PRINT "Sorry!": RETURN 
IF at%>recs% THEN PRINT "Sorry!": RETURN 
GOSUB 4400 : REM display routine 
GOSUB 2200 : REM wait 
RETURN 
REM -- Delay routine: 
REM uses w%, wS 
w%=0 : wS="" 
WHILE w%<222 AND wS$="" 

wS=INKEYS$ 

wt=wtt+] 

WEND 
RETURN 


REM -- New-handicap routine: 

PRINT: PRINT "Revision of handicap data:" 
GOSUB 5000 : REM get record 

GOSUB 4400 : REM display it 

PRINT "OK to alter handicap ? "; 
cS$=INKEYS: IF c$="" THEN GOTO 2350 
ok%=(cS$="Y") OR (c$="y") 

IF NOT ok% THEN RETURN 

IF h<0O THEN RETURN : REM dud record 

PRINT 


INPUT "Latest score was : ", Ss 
INPUT "Par for the course:", p% 
s = INT(s-p%) : REM difference from par 


GOSUB 2500 : REM compute new handicap 
PRINT: PRINT "New handicap for ";name$ 
PRINT h;" (playing off ";INT(h+0.5);")" 
GOSUB 4000 : REM write it. 

PRINT "Press any key to go on:" 


CS=INKEYS: IF c$="" THEN 2475 
RETURN 
REM -- Handicap-revision routine: 


dad = s - INT(h+0.5) 
IF d=0 THEN RETURN 
IF d>0O AND h<=5 THEN h=h+0.1: RETURN 
IF d>0O AND h>5 THEN h=h+0.2: RETURN 
REM -- gets here if better than usual: 
IF h<=0 THEN h=0: RETURN 
WHILE d < 0 

x = 0.1 

IF h > 20.4 THEN x=x+0.1 

IF h > 12.4 THEN x=x+0.1 

IF h > 5.4 THEN x=x+0.1 


RETURN 
REM with h as new handicap. 


REM -- Write-file routine: 
p%=0 
OPENOUT f$ 
WHILE p%<recs% 
BANKREAD, @r$%,name$,p$% 
BANKREAD, @r%,hS$,p%+tl 
IF r%<0 THEN STOP 
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3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4200 
4210 
4215 
4220 
4230 
4240 
4250 
4260 
4270 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5066 
5070 
5080 
5090 
5100 


h=VAL(h$ ) 
WRITE#chan%, name$,h 
p%=p%+2 
WEND 
CLOSEOUT 
PRINT recs%/2;" items dumped to ";f$ 
PRINT 
RETURN 
REM -- Write-record routine: 
REM puts name$,h at at% 
hS$=LEFTS (STRS (h)+gaps$,recsize$) 
| BANKWRITE, @r%,name$,at% 
BANKWRITE, @r%,hS,at%+1l 
IF r%<0 THEN STOP 
RETURN 


REM -- Read-record routine: 
REM gets name$,h from at% 
name$=qaps$ 

BANKREAD, @r%,name$,at% 
BANKREAD, @r%,h$,at%+1l 

IF r%<0 THEN STOP 

h=VAL(hS ) 

RETURN 





REM -- record-display routine: 

REM shows record at at: 

GOSUB 4200 

IF h<O THEN PRINT "EMPTY RECORD!": RETURN 
PRINT 


PRINT "Player name : ";name$ 

PRINT "Handicap is : ";h 

PRINT "Playing off : ";INT(h+0.5) 
PRINT 

RETURN 

REM -- Routine to get record-number: 


PRINT: ok%=0 
WHILE ok%=0 
LINE INPUT "Player’s name "; n$ 
n$=LEFTS (n$,12) 
IF n$S="" THEN GOTO 5030 
| BANKFIND, @r$,n$,0,recs% 
n%=r% 
IF n%>=0 THEN ok%=1l 
WEND 
at%=n%: RETURN 
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Exercise 7.8 Indexer program 











10 REM KKRKKKKKKKKKKKEKKEKKKKKKKKKKKKK 


11 REM ** Listing 7.8 : sibel 
12 REM ** INDEXER PROGRAM ae 
15 REM KKK KKKKKKKKKKKKKEKEKKEKKKKKKKKKKK 
60 :) 


100 REM -- Shell-sort for book index: 

101 ouch%=8 : REM 8=printer, O=screen. 

110 MODE 1 : BORDER 15 

120 READ n$% 

130 DIM term$(n%), page$(n%) 

133 DIM p%(n$%) 

140 FOR i%=1 TO n% 

150 READ term$(i%),page$(i%) 

180 p%(is)=i% 

190 PRINT i%,term$ (i%) 

200 NEXT if 

210 REM -- Data now read in. 

220 GOSUB 400 : REM sort them out 

230 PRINT #ouch’% 

233 PRINT #ouch%,"Appendix I -- Index of Example Programs:" 
240 PRINT #ouch%, “INDEX OF";n%;"ITEMS:" 

244 PRINT #ouch’% 

250 FOR i%=l TO n% 

260 PRINT #ouch$%, i%;TAB(6) ;termS (i%) ;TAB(33) ;page$ (p%(i%) ) 
270 NEXT i% 

280 PRINT #ouch% 

290 PRINT#ouch$, "La.b is Listing b in Chapter a;" 
295 PRINT#ouch$%, "Xc.d is Exercise d in Chapter c." 


300 END 

320 REM -- for output see Appendix I. 
330 3 

400 REM -- Shell-sort subroutine: 


410 ms = n% 

420 WHILE m% > 1 

430 ms = INT(m% / 2) 

440 IF m% MOD 2 = 0 THEN m%=m%-1 
450 FOR i%=m%+l TO n% 


460 FOR 3%=i% TO m%+1l STEP -m% 

470 IF UPPERS (term$ (4%) )<UPPERS$(term$(j%-m%)) THEN GOSUB 800 
ELSE 3%=0 

480 NEXT 

490 NEXT i 

500 WEND 

520 RETURN 

550 

800 REM -- swap routine: 


810 r%=j%3-ms 

820 t%=p$(j%): p$(j%)=ps(rs): ps(rs)=ts 
830 tempS=termS (4%) 

840 termS(j%)=termS (r3% ) 

850 term$ (r%)=temp$ 


860 RETURN 

870 REM uses t,temp$,r%, j% 
880 

1000 REM -- Data for sorting: 


1010 DATA 55 

1020 DATA Probability Calculations,Ll.1 
1030 DATA Easter Day Calculations,L2.1 
1040 DATA Centigrade to Fahrenheit,L3.1 
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1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 


Temperature Converter,L3.2 
Russian Roulette,L3.3 

Simple Selection Sort,L3.4 
Reversing Numbers,J]4.1 

The Ladder of Recursion,L4.2 
Rounding a Numeric Value,L4.3 
Bisector Program,L4.4 

String Input,L5.1 

ASCII Values,L5.2 

The ASCII Character Set,L5.3 
Comparing Strings,L5.4 

String Functions,L5.5 

Welcome Back,L5.6 

Number Naming, L5.7 

Input Demonstration,L6.1 
Input Validation,L6.2 

Party Invitations,L6.3 

PRINT USING with Numbers,I6.4 
Screen-Based Form-Filling,L6.5 
Very Basic Expert System,L6.6 
Sales Datafile,L7.1 
Sequential File Creation,L7.2 
Sequential File Listing,L7.3 
Golf-Club Handicapper,L7.4 
Shell Sort,L7.5 
Starburst,L8.1 

Coloured Balloons,L8.2 
Pentatonic Player,L8.3 
Rat-Maze Program,L8.4 


Binary Tree Creation,L9.1 
Recursiive Patterns,L9.2 
Code-Game -- Version 1,L10.2 
Code-Game -- Version 2,L10.2 


Fibonacci Series,X3.2 
Array Reversal,X3.4 

Asset Depreciation, X3.6 
Roots and Powers,X4.1 
Pascal ’s Triangle,xX4.3 
Prime Numbers,X4.5 
Perfect Numbers,X4.7 
Procrustes,X5.2 

Left & Right Strings,X5.4 
Instring,X5.6 

Reaction Timer,xX6.1 
Compound Interest, X6.3 
Histogram Program, X6.5 
Word Counter,X7.2 

Menu Program, X7.4 

Revised Golf-Handicapper,X7.6 
Polygon Plot,xX8.1 
Text-Screen Dump,X8.3 
Indexer Program,X7.8 
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10 R 
11 R 
12 R 
15 R 
60% 
100 
101 
110 
120 
130 
140 
150 
200 
220 


1000. 


1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1101 
1110 
1120 


| Exercise 8.3 Text-screen dump ’ 


~ Exercise 8.1 Polygon plot 





EM KKEKKKKKKEKKKKEKKKEKEKEKEKEKEKEKKKKKKKKEKK 
FM ** Exercise 8.1 : we 
EM ** POLYGON PLOT “* 
EM KR KKKKKKKEKKKEKKEEKEKKKKKKEKKKKKEK 
REM -- Polygon Plotter: 

RAD 


MODE 1 : BORDER 15 

h=200: v=128 

size=64: edge=10 

flag%=2 

GOSUB 1000 : REM polyplot routine 
END 


REM -- Polygon plotting routine: 
REM uses: 
ph=PI/edge 
r=SIN(ph)*size 
MOVE h,v-size 
MOVER r*COS(ph),r*SIN(ph) 
FOR e=1 TO edge 
t=e*ph*2 
DRAWR size*COS(t),size*SIN(t) 
NEXT 
MOVE h,v 
IF flag%>0 THEN FILL flag’ 
RETURN 





1 EVERY 128 GOSUB 9000 


10 REM KEKKKKKKEKKEEKKEKKEKKEKKKKKKKKKKKKK 
11 REM ** Exercise 8.3 : ne 


12 R 
15 R 
Sis 
9000 
9010 
9020 
9030 
9050 
9060 
9070 
9080 
9090 
9100 
9110 
9120 
9125 
9130 


EM ** TEXT-SCREEN DUMP Abel 
EM 70 III III OI IK 


REM -- interrupt-driven text screen dump: 
IF VPOS(#0) <= 16 THEN RETURN 
REM -- only after 16 lines. 
vvvv=VPOS ( #0) 

FOR r8%=1 TO vvvv 

FOR c8%=1 TO 40 

LOCATE c8$%,r8% 

PRINT #8, COPYCHRS (#0) ; 

NEXT c8% 

PRINT #8 

NEXT r8% 

CLS: RETURN 

REM set for 40-column mode. 
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Procrustes Ex.5.2 251 
Rat-Maze Program L8.4 156 
Reaction Timer Ex.6.1 254 
Recursive Patterns L9.2 183 
Reversing Numbers L4.1 53 


Revised Golf-Handicapper Ex.7.6 262 
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Sales Datafile L7.1 124 
Screen-Based Form-Filling L6.5 101 
Sequential File Creation L7.2 126 
Sequential File Listing L7.3 126 
Shell Sort L7.5 138 
Simple Selection Sort L3.4 47 
Starburst L8.1 145 
String Functions L5.5 75 
String Input L5.1 71 
Temperature Converter L3.2 40 
Text-Screen Dump Ex.8.3 268 
The ASCII Character Set L5.3 72 
The Ladder of Recursion L4.2 57 
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ABS(), 58, 232 
Absolute plotting, 145 
Addition, 18 
Address, 235 
AFTER, 152. 208 
Algorithm, 235 
Alpha Centaun, 50 
Alphanumeric, 235 
AMSDOS. §, 10. 117, 127, 129, 223, 225, 235 
command, 118, 119 
errors. 231 
AND. 23. 222 
Argument. 59, 60. 209. 235 
Anthmetic expression, 18. 19, 67 
Anthmetic operator. 18, 19, 20, 222. 232 
Array, 43, 44, 45. 167, 176, 235 
name, 46 
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ASC(), 71. 232 
ASCII. 71. 123, 206, 22€. 235 
Assignment, 20, 215 
Atherton, Roy, 240 
ATN(), 232 
AUTO, 29, 208 
Auto-repeat, 4, 220 


Babbage, Charles, 151 
Back-up. 181 
Background, 144 
Backward chaining, 114 
BANKFIND, 129, 139 
BANKOPEN, 127 
BANKREAD, 128 
BANKWRITE, 128 
Base 7, 187 

Basic, 1, 235 

Bigamy, 34 

BIN$(), 232 


Binary, 15, 187, 235 
tree, 169, 170 

Bit, 15, 235 

Boole, George, 23, 235 

Boolean, 235 

Bootstrap, 235 

BORDER, 103, 142, 208 

Brackets, 18, 19 

Bubble sort, 47 

Buffer, 235 

Bug, 236 

Byte, 15, 236 


CALL, 209, 236 
Carriage return, 236 
Cassette, 2, 3 
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CHAIN MERGE, 225 
Chaining, 236 
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number, 121, 122 
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definition, 154, 155 
string, 67 
CHR$(), 33, 71, 73, 195, 207, 232 
Chunky graphics, 115, 189, 195 
CINT(), 232 
CLEAR, 209 
CLEAR INPUT, 99, 209 
CLG, 142, 209 
Close file, 120 
CLOSEIN, 125, 225 
CLOSEOUT, 125, 225 
CLS, 142, 209 
Code game, 186, 190, 192, 196-200 
Cold boot, 236 
Colwill, Steve, 240 
Command, 6, 236 
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Comments, 26 
Comparison operator, 73 
Compiler, 236 
Computer, 236 
Concatenation, 69, 70 
Condition, 23, 42 
Constant, 236 
CONT, 21, 55, 209 
Control character, 224 
COPYCHR&(), 232, 268 
COS(), 58, 232 
Counter, 39 
CP/M, 119, 223, 236 
command, 223 
CPU, 3, 236 
CREAL(), 232 
Cursor, 236 
keys, 28 
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DATA. 87. 88, 89, 103, 209, 236 
entry, 101 
processing, 117 
representation, 166 
structuring, 167, 175 
types, 15 
Database, 121, 236 
Datafile, 124, 167, 236 
Debugging, 179, 236 
DEC§(), 232 
Decimal, 16, 187 
Decision, 13, 14, 22 
DEF FN. 59, 163, 209 
Default, 236 
DEFINT, 17, 18, 209 
DEFREAL, 210 
DEFSTR, 210 
DEG, 147, 210 
DELETE, 27, 210 
Delimiter, 69 
DERR, 225, 231 
DI, 152, 210 
DIM, 45, 210 
Dimension, 43, 236 
Disc, 236 
drive, 2, 3, 117 
DISCKITS, 224 
Division, 18 
Double-entry bookkeeping, 124 
DRAW, 144, 211 
DRAWR, 146, 211 


Drunkard's Walk, 64 


Easter Day, 29 

EDIT, 28, 211 

Editing, 27, 28, 236 

EI, 153, 211 

ELSE, 22, 214 

END, 21, 33, 55, 57, 88, 211 
End of file, 125, 231 
ENDIF, 181 

English text, 83 

ENT, 151, 159, 211 
ENV, 151, 159, 212 
Envelope, 150, 211 
EOF, 125, 225, 236 
ERASE, 212 

ERL, 153, 212, 228 
ERR, 153, 212, 228 
ERROR, 212 

Error message, 228, 236 
Estate agency, 112 
EVERY, 152, 212 
Evidence, 104 

Exact matching, 201 
Execution error, 178 
EXP(), 58, 232 

Expert system, 104, 241 
Exponentiation, 18 
Expression, 20, 236 


Facts, 96 
Fibonacci series, 49 
Field, 120 

specification, 97, 98 
File, 237 

access, 135 

creation, 126 

handling, 117, 120, 121, 123, 225 

specification, 118 

type, 226 
FILL, 146, 147, 212 
FIX(), 58, 232 
Floating-point, 15, 17, 167, 237 
Flowchart, 14, 237 
Football pools, 9 
FOR, 38, 39, 213 
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Form filling, 101 
Format, 26, 96, 99 
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FRE(), 232 
Friends and acquaintances, 95 
Front end, 237 
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key, 237 
keys, 4 


Games programming, 205 
Garbage collection, 229, 237 
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Geology, 104 
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Global, 237 

variable, 58, 181. 183 
Glossary, 237 
Golf handicapping, 130, 131-5, 139 
GOSUB. 53, 55, 163, 213 
GOTO, 21, 22, 38, 53, 162, 213 
Graphics, 141, 148, 189, 237 
Graphics cursor. 146 
GRAPHICS PAPER, 144, 213 
GRAPHICS PEN, 144, 213 
Graphics window, 147 
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Hacker, 203, 237 
Hardware, 237 
Hartnell, Tim, 241 
Heapsort, 47 

Help screen, 101 
Heuristic, 237 

HEX§(), 232 
Hexadecimal, 15, 16, 187, 237 
HIMEM, 233 
Histogram, 114 
Holmes, Sherlock, 181 
Horse racing, 9 
Hypothesis, 104 


VO, 237 

IF, 22, 181, 214 

Implementation timetable, 164 
Indentation, 41 

Inference engine, 112, 237 

INK, 143, 214 

INKEY$, 72, 99, 233 

INKEY(), 99, 100, 233 

INP(), 233 

INPUT, 24, 69, 84, 85, 100, 122, 214, 237 


INPUT#, 123, 226 

INSTR(), 76, 83, 233 
Instruction, 6, 237 

INT(), 58, 61, 233 

Integer, 15, 167, 177, 237 
International A, 148 
Interpreter, 237 

Interrupt handling, 151, 152 
Invalid expression, 20 


Jargon, 237 
JOY(), 233 


Kemeny and Kurtz, | 

KEY, 214 

KEY DEF, 215 

Keyboard, 2, 3, 5, 84, 237 
scanning, 99 

Keyword, 12, 237 

Knowledge base, 112, 237 


Lasagne, 183 
Leap year, 51 
LEFT$(), 75, 82, 233 
LEN(), 75, 233 
Leonardo of Pisa, 49 
LET, 20, 215 
Lewis, T.G., 241 
LINE INPUT, 86, 122, 215 
Line number, 12, 21, 225, 238 
LIST, 7, 32, 215 
Literal, 70 
LOAD, 6, 7, 226 
Local, 238 

variable, 58, 181, 182 
LOCATE, 115, 116, 142, 215 
LOG(), 58, 233 
LOG10(), 233 
Logical error, 179 
Logical operator, 23, 222 
Logistic curve, 115, 116 
London Underground, 167, 175 
London Weather Centre, 136 
Loop, 37, 41, 238 
Lower case, 17, 30 
LOWER{(), 77, 78, 233 


Machine code, 203, 238 
Machine instruction, 15 
Magnetic tape, 117 
Marriage, 34 
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Matching routine, 203 

Matrix, 44, 238 

MAX(), 233 

Maze, 154, 159 

Mean, 66 

Median, 66 

Medicine, 104 

Meek, Brian, 181 

MEMORY, 215 

Menu, 101, 135 

Menus versus commands, 100 
MERGE, 52, 159, 226 

Method of Bisection, 63, 180, 188, 196 
MID$, 216 

MID§$(), 75, 82, 233 

Middle C, 148 

Midnight Hacker's Club, 161 
Miller, Alan, 241 

MING, 233 

MOD. 18, 222 

MODE, 66, 103, 141, 142, 216 
Model answers, 243 

Modular programming, 52, 163 
Modularity, 162. 163 

Monitor, 238 

Mormis. Brian, 240 

MOVE 144, 216 

MOVER. 146, 216 
Multiplication, 18 

Music, 149 


Naylor. Chris, 159, 240, 241 
Network, 175, 176, 177 
NEW, 7, 216 

NEXT, 38, 39, 41 

NOT, 23, 222 

Null string, 77 

Number naming, 78 
Numeric constant, 16 
Numeric variable, 68 


Octal, 187 

Odds, 8, 9 

Ogdin, Carol Anne, 159, 241 

ON, 217 

ON BREAK CONT, 153, 216 

ON BREAK GOSUB, 153, 216 

ON BREAK STOP, 216 

ON ERROR GOTO, 153, 212, 217, 228 
ON SQ(), 217 

On-line, 238 


Open file, 120 
OPENIN, 121, 226 
OPENOUT, 121, 226 
Operand, 238 
Operating system, 238 
Operator, 18, 238, 
precedence, 18, 23 
OR, 23, 222 
ORIGIN, 147, 217 
OUT, 217 
Output, 84, 191, 238 
Overflow, 17, 228 


Palette, 142 
Palindrome, 54 
PAPER, 143, 217 
Parameter, 55, 59, 162, 182, 238 

passing, 55 
Partial matching, 201 
Pascal, 42, 55, 240, 242 
Pascal's triangle, 65 
Pattern matching, 95 
PEEK(), 233 
PEN, 143, 154, 217 
Pentatonic scale, 150 
Peripheral, 238 
PI, 61, 233 
Pixel, 141, 238 
PLOT, 145, 159, 218 
PLOTR, 146, 218 
Pluto, 50 
Pointer, 177, 238 
POKE, 218 
POS(), 233 
Postage stamps, 66 
Precision, 17 
Predefined function, 58, 232 
Prime number, 65 
PRINT, 6, 24, 25, 180, 218 
PRINT USING, 96, 97, 218 
Printer, 2, 3, 159 
Probability, 7, 8 
Procedure, 238 
Processing action, 12, 14 
Program, 12, 238 

design, 11, 161 
Programmer, 238 
Programming environment, 5 
Punctuation, 4, 21, 208 


Quicksort, 47 
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QWERTY, 4 


RAD, 218 
RAM, 3, 238 

bank, 127, 128, 129, 130, 139 
Random access, 127, 238 
Random-access file, 117 
Random numbers, 202 
RANDOMIZE, 218 
Rat-maze program, 156 
READ, 87, 88, 89, 219 
Read cursor, 28 
Real estate, 105 
Record, 120, 123, 167, 238 
Recursion, 56, 174, 175, 182, 183, 238 
Reductionist method, 81 
Relational operator, 23, 222 
Relative plotting, 146 
RELEASE, 219 
REM. 26, 182, 219 
REMAIN(). 152, 233 
RENUM. 55, 219 
Repetition, 13, 14, 37, 38, 162 
RESTORE, 87, 88, 89, 219 
RESUME, 219 
RETURN, 53, 55, 57, 163, 219 
RIGHT$(), 75, 82, 233 
RND, 58, 233 
ROM, 3. 238 
ROUND(), 233 
Routine, 52, 53, 238 
Rules, 96 
RUN, 6. 7, 220, 226 
Runtime, 238 
Russian roulette 38, 42 


SAVE, 7. 123, 226 
Screen, 2 
Screening process, 89 
Search, 159 

strategy, 153, 155 
Sector, 239 
Selection, 162 

sort, 47 
Self-reference, 239 
Semicolon, 25 
Sequence, 162 
Sequential, 239 

file, 117, 125, 126 
Serial, 239 
SGN(), 233 


Shell sort, 137 
SINQ, 58, 233 
Soccer, 9 
Sod's Law, 58 
Software, 239 
design, 161, 181 
engineering, 241 
Sorting, 46, 49, 137, 139, 239 
SOUND, 148, 149, 150, 151, 220 
SPACES(), 233 
Spaghetti, 14, 183 
SPC(), 96 
Special keys, 4, 224 
SPEED INK, 220 
SPEED KEY, 220 
SQ(), 233 
SQR(), 58, 234 
Stack, 175, 183, 239 
Statement, 6, 12, 239 
format, 21, 208 
Station data, 170-3 
STEP, 39 
Stepwise refinement, 163 
STOP, 21, 220 
STR$(), 77, 78, 129, 234 
Stream, 239 
Stnng, 15, 67, 167, 239 
constant, 70 
function, 75, 78 
search, 78 
variable, 68 
STRING§(), 77, 234 
Structure diagram, 12, 14 
Structured programming, 12, 162 
Structured selection, 104 
Subprocess, 12, 14, 52 
Subprogram, 52 
Subroutine, 52 55, 56, 174, 175, 239 
pitfalls, 57 
Subscript, 43, 44, 45, 239 
Subtraction, 18 
Subtree, 175 
SYMBOL, 153, 220 
SYMBOL AFTER, 153, 220 
Syntax error, 32, 178 
System, 239 


TABQ), 96 
Table, 167 
TAG, 221 
TAGOFF, 221 
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TAN(), 58, 234 
Temptation, 185 
Terminator, 69 

TEST(), 234 

Testing, 164, 180 
TESTR(), 234 

THEN, 22, 214 
Three-part harmony, 148 
Tibetan Monastery, 215 
TIME, 47, 234 
Timesharing, 239 

Tone values, 150 

Tree structure, 169 
TROFF, 55, 180, 221 
TRON, 55, 180, 221] 
Truncation, 222 


UNT(), 234 

Upper case, 17, 30 
UPPER§(), 77, 78, 234 
User input, 191 
User-defined function, 59 


VAL(), 77, 78, 234 
Validation, 87, 191 
Value, 239 

Variable, 17, 20, 30, 239 


VDU, 239 

Vector, 44, 49, 239 

Von Neumann, John, 152 
VPOS(), 234 


Warm Boot, 239 
WEND, 41, 42, 86, 181, 221 
WHILE, 42, 86, 181, 221] 
WIDTH, 221 
WINDOW, 113, 221 
WINDOW SWAP, 221 
Windowing, 143, 239 
Word counting, 137 
WordsStar, 101 
Working memory, 239 
WRITE, 122, 123, 227 
Write cursor, 28 


XOR, 222 
XPOS, 160, 234 


YPOS, 160, 234 


Zaks, Rodnay, 241, 242 
Zero-trip loop, 42 
ZONE, 25, 221 


The default INK settings 


Inkpot Colours 
Mode 0 Mode 1 Mode 2 
0 l ] l 
1 24 24 24 
2 20 20 ] 
3 6 6 24 
4 26 l ] 
5 0 24 24 
6 2 20 l 
7 8 6 24 
8 10 l ] 
9 12 24 24 
10 14 20 ] 
11 16 6 24 
12 18 l l 
13 22 24 24 
14 F1,24 20 l 
15 F16,11 6 24 


You can change the colour in each inkpot to any that you 
like. It doesn't matter what the particular colours are but 
you are only allowed two in MODE 2, four in MODE 1 and 


sixteen in MODE 0. 


The Amstrad’s colour codes 


Black 

Blue 
Bright Blue 
Red 
Magenta 
Mauve 
Bright Red 
Purple 
Bright Magenta 
Green 

10 Cyan 

11 Sky Blue 
12 Yellow 

13. White 
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Pastel Blue 
Orange 

Pink 

Pastel Magenta 
Bright Green 
Sea Green 
Bright Cyan 
Lime Green 
Pastel Green 
Pastel Cyan 
Bright Yellow 
Pastel Yellow 
Bright White 


Richard Forsyth and Brian Morris 


The AMSTRAD BASIC Idea 


Amstrad have produced a remarkable range of 
computers. Nevertheless, many owners are un- 
able to unleash their full potential. Why? Chiefly 
because they have not made the transition from 
computer user to computer programmer. 

The aim of this book is to ease that transition. It 
will enable you to use AMSTRAD BASIC to solve 
realistic problems. In other words, it will turn you 
from a passive user into an active one — no longer 
dependent solely on pre-packaged programs but 
also able to explore the full potential of your 
machine. 

This book — the successor to the best-selling 
The BBC BASIC Idea — will help you to become a 
competent programmer in AMSTRAD BASIC. It 
shows in a straightforward manner how to use 
modern methods of problem analysis and design 
to solve your programming problems, so that you 
can enjoy and profit from your computing. 
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